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ПРЕДИСЛОВИЕ 


Коммунистическая партия и Советское правительство поставили 
задачу дальнейшего развития народного хозяйства СССР на основе 
‚научно-технического прогресса, уделив при этом внимание вопросам 
разработки проблем теоретической и прикладной математики и КИ- 
бернетики для более широкого применения в народном хозяйстве 
математических методов и электронно-вычислительной техники. В 
ближайшие годы предусмотрено создание общегосударственной авто- 
матизированной системы сбора и обработки информации для учета, 
планирования и управления народным хозяйством на базе государ- 

твенной сети вычислительных центров. 

Проблема эффективного использования ЭВМ как технической ос- 
Новы автоматизированных систем управления может быть успешно 
тее лишь посредством создания развитых средств общения чело- 


века с машиной, среди которых главную роль играет использование 


языков программирования различной ориентации. В связи с этим по- 
нятен широкий фронт работ по созданию новых языков програм- 
мирования и разработке методов их реализации. 

Вместе с тем в сфере использования языков программирования 
все ярче просматривается тенденция к выделению из их обширного 
количества, исчисляемого уже тысячами, некоторых языков, прошед- 
ших практическое опробование и выдержавших многолетние испыта- 
ния, и фиксация их стандарта. 

Одним из таких языков, получивших широкое распространение 


‚ и всеобщее признание (наряду с языками АЛГАМС, КОБОЛ), являет- 


ся ФОРТРАН — один из наиболее ранних языков программирова- 
ния, стандарт которого [8] был определен в 1966 г. 

Язык программирования ФОРТРАН является в настоящее время 
одним из самых распространенных языков общения с машиной. 

Появление ФОРТРАНа относится к 1954 году, когда группа аме- 
риканских специалистов в области программирования, возглавляемая 
проф. Дж. В. Бэкусом, подготовила доклад, содержащий первое сооб- 
щение о данном языке. В ‘1958 г. была выдвинута новая расширенная 
версия ФОРТРАНа, называемая ФОРТРАН П. 

В 1961 г. появился ФОРТРАН П и в 1962 г.— ФОРТРАН 1У. 


В 1966 г. был определен стандарт языка ФОРТРАН, который и 
положен в основу настоящего пособия. 

Язык был задуман для использования в сфере научных и инженер- 
но-технических вычислений, о чем говорит само слово БОВТКАМ, 
сокращение двух слов ЕОК ша ТКАМаНоп — «преобразование фор- 
мул». Но возможности языка оказались гораздо более широкими. . 
В частности, ФОРТРАН удобен для описания задач с разветвленной 
логикой (моделирование производственных процессов, задачи теории 
игр, эвристические задачи и др.), задач, связанных с представлением · 
данных в виде сводок, ведомостей и т. п. | 

Выбор языка ФОРТРАН в качестве массового языка программиро- · 
вания объясняется его качествами, из которых следует отметить: 
1) простоту по сравнению с другими языками программирования той 
же ориентации (например, АЛГОЛом), обеспечивающую эффектив- 
ность выполнения оттранслированных (рабочих) программ; 
2) ФОРТРАН достаточно удобен для программирования · широкого 
круга вычислительных алгоритмов; 3) в ФОРТРАНе имеются доста- 
точно удобные средства для связи человека с машиной и представле- 
ния информации в привычном для специалиста виде. Наконец, 
ФОРТРАН хорошо приспособлен для эффективного использования 
внешних устройств современных ЭВМ. Преимуществом ФОРТРАНа 
является также то, что к настоящему времени на этом языке разработаны 
и накоплены обширнейшие библиотеки программ, включающие как 
стандартные программы, так и множество специальных программ, 
применяемых для решения разнообразных задач. 

Следует заметить, что со времени появления первой версии языка 
ФОРТРАН (1954 г.) и до принятия его стандарта язык непрерывно 
развивался, и некоторые его версии были закреплены в тех или иных 
реализациях, более или менее отличающихся друг от друга. В ре- 
зультате пользователи языка оказались перед фактом программной 
несовместимости отдельных его реализаций на различных типах 
ЭВМ. 

Учитывая это, авторы в основу написания настоящей книги поло- 
жили стандарт языка ФОРТРАН, тем более, что в серии машин ЕС 
в математическое обеспечение входят трансляторы с языка ФОРТРАН 
в его версии ФОРТРАН ТУ, близкой к стандарту. 

Пособие включает детальное изложение средств стандарта языка 
ФОРТРАН и методики их использования. Изложение сопровождает- 
ся пояснениями и большим количеством примеров. Последние подоб- 
раны так, что для усвоения материала настоящего пособия достаточ- 
но подготовки в объеме курса средней школы. Книга может быть ис- 
пользована при подготовке пользователей различных категорий: от 
студентов вузов до курсов профессионально-технической подготовки. 

Программированный характер пособия значительно облегчает изу- 
чение предмета. ј 
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Авторы надеются, что книга будет способствовать увеличению 
числа специалистов, применяющих в своей работе вычислительные 
машины, повышению культуры программирования и, в конечном 
счете, повышению эффективности использования ЭВМ. 

Отзывы просим направлять по адресу: 252054, Киев-54, ул. Гого- 
левская, 7, Головное издательство издательского объединения «Вища 
школа». 


КАК РАБОТАТЬ С КНИГОЙ 


Книга состоит из следующих частей: 

1. Программированное пособие, при изучении которого Вы овла- 
деете навыками использования наиболее употребительных средств 
языка, научитесь писать достаточно сложные программы для реше- 
ния вычислительных и инженерных задач. 

2. Сводка основных правил программирования на языке 
ФОРТРАН, которая будет Вам необходима ри дальнейшей работе 
с языком ФОРТРАН. 

Все эти части позволят определить лучший режим процесса освое- 
ния языка ФОРТРАН и сочетать работу над средствами языка по 
программированной части (часть 1) с возможностью «взглянуть на язык 
в целом» по сводке правил. 

Текст учебника по языку ФОРТРАН разделен на порции, содер- 
жащие материал об отдельных конструкциях языка. После каждой . 
порции предлагается одно или несколько заданий для проверки ус- 
воения этого материала и закрепления навыков, необходимых для вы- 
полнения дальнейшей работы. Учебник построен таким образом, что 
для выполнения любого задания, входящего в порцию, вполне доста- 
точно сведений, содержащихся в этой порции и ей предшеству- 
ющих. " . 

Чтобы усвоить язык ФОРТРАН, необходимо строго соблюдать 
следующие правила работы с программированным учебником: 

1. Все задания выполняйте самостоятельно. Не заглядывайте в 
ответ раньше, чем задание будет выполнено. 

2. Обязательно записывайте ответы в свою тетрадь, даже в тех 
случаях, когда они кажутся очевидными. 

З. Когда ответ записан, сравните его с приведенным в книге. 
Если допущена ошибка, не ограничивайтесь ее исправлением. Очень 
важно выяснить причину ошибки. Для этого, возможно, придется 
еще раз прочитать последнюю порцию, а иногда и несколько преды- 
дущих. 

4. В ряде случаев на одно и то же задание могут быть даны различ- 
ные правильные ответы и тогда может оказаться, что Ваш ответ ве- 
рен, хотя он и не совпадает с приведенным в учебнике. В таких слу- 
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чаях (если это не очевидно) указывается, как определить, получен ли 
правильный ответ на задание данного тина. 

5. Приступайте к изучению новой порции только после усвоения 
предыдущей и правильного выполнения содержащихся в ней заданий. 

Соблюдая указанные требования, Вы сможете хорошо усвоить 
ФОРТРАН и решать разнообразные вычислительные задачи с по- 
мощью ЭЦВМ, ознакомившись предварительно с соответствующей ин- 
струкцией по входному языку. 

После прохождения курса в практической работе рекомендуем 
пользоваться приведенным в конце книги справочником, в котором 
сжато изложены основные сведения по языку ФОРТРАН. 


Глава Т 


Элементы языка ФОРТРАН 


Порция 1 
Программа на ФОРТРАНе 


Для того чтобы использовать вычислительную машину для реше- 
ния какой-либо задачи, алгоритм решения этой задачи необходимо 
представить в виде программы. 

Программа — это конечная последовательность четко определен- 
ных инструкций (операторов), «понятных» машине, порядок выпол- 
нения которых строго установлен. Составление программы на языке 
машинных операторов, т. е. управляющих кодов, непосредственно 
‘воспринимаемых и выполняемых машиной, является трудоемким и 
утомительным процессом. Программирование задачи значительно упро- 
щается при использовании специальных языков программирования, 
одним из которых является ФОРТРАН. Язык ФОРТРАН предназна- 
чен для решения широкого круга научных и инженерных вычисли- 
тельных задач. Большим преимуществом ФОРТРАНа является его 
близость к привычному алгебраическому языку. 

Программа, написанная на ФОРТРАНе, может быть выполнена 
на любой машине, снабженной транслятором с этого языка. Трансля- 
тор — это программа, которая переводит программу, написанную на 
ФОРТРАН, на язык конкретной вычислительной машины. 

В функции транслятора входит не только перевод с одного языка 
на другой, но и указание некоторых ошибок, допущенных програм- 
мистом при написании программы. Например, транслятор выдает со- 
общение об ошибке, если программист забыл поставить закрываю- 
щую скобку, и т. д. Программа на ФОРТРАНе называется исходной 
относительно транслятора, или ФОРТРАН-программой, а полученная 
в результате работы транслятора эквивалентная программа на языке 
конкретной машины — рабочей программой. Получение и выполнение 
рабочей программы осуществляется автоматически после ввода исход- 
ной программы, занесенной на перфокарты или на другой носитель 
информации. р 

ФОРТРАН-программа может состоять из одной главной программы 
или из главной программы и нескольких других программных единиц, 
которыми могут быть так называемые внешние процедуры (внешние 
функции и подпрограммы) и сопрограммы данных. 


Одну из важных особенностей языка составляет возможность раз- 
деления этапа трансляции на два этапа — собственно трансляция и 
сборка. Причем первый из названных этапов может выполняться раз- 
дельно для каждой из программных единиц. 

В процессе выполнения ФОРТРАН-программы главная программа 
может вызывать к исполнению другие программные единицы, кото- 
рые, в свою очередь, также могут обращаться к другим программным 
единицам (однако, не к главной программе); при этом никакая 
из программных единиц не может 
обращаться сама к себе как непо- 
средственно, так и посредством дру- 
гих программных единиц. (В этом 
случае говорят, что в языке недо- 
пустимо рекурсивное выполнение 
программных единиц). Выполнение 
каждой вызванной внешней про- 


Ц 

И р Не ет цедуры завершается возвратом’ в 

[Подпрограмма н, Подпрогронна —— [Подпрограмма вызвавшую ее программную еди- 
ницу. 

Рис. 1 Схематически структуру ФОРТ- 

РАН-программы можно изобразить 

в виде схемы, пример которой представлен на рис. 1, где сплошными 

стрелками показаны возможные обращения одной программной еди- 

ницы к другой, а рядом проходящими пунктирными линиями показаны 

возвраты, следующие после их выполнения. 

Внешняя процедура — это последовательность операторов и ком- 
ментариев, начинающаяся одним из операторов ЕОМСТОМ или 
ЅОВКООТІМЕ и не содержащая внутри себя таких операторов. 

Сопрограмма данных — это последовательность операторов и ком- 
ментариев, начинающаяся оператором ВГОСК, РАТА и не содержа- 
щая внутри себя такого оператора. 

Главная программа представляет собой последовательность опе- 
раторов и комментариев, не содержащую указанных трех операторов: 
РОМСТЮМ, ЅОВКООТІМЕ и ВІОСК РАТА. 

Каждая программная единица завершается конечной строкой. 

Программа на ФОРТРАНе составляется из операторов, которые 
подразделяются на два обширных класса: выполняемые и невыпол- 
няемые. К первому из этих классов относятся операторы, определяю- 
щие действия, связанные с преобразованием данных, их вводом, вы- 
водом, или предназначенные для определения очередного, подлежа- 
щего выполнению, оператора программы. Невыполняемые операторы 
предназначены для описания характеристик данных (элементов, под- 
лежащих обработке), способов их организации, редактирующей ин- 
формации (т. е. информации, используемой для редактирования дан- 
ных), классификации программных единиц. 
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Главная программа 


В свою очередь выполняемые операторы подразделяются на сле- 
дующие группы: . 

а) операторы присвоения, вычисляющие и присваивающие пере- 
менным значения арифметических и логических выражений или метку; 

6) операторы ввода-вывода информации; 

в) операторы, управляющие последовательностью выполнения опе- 
раторов программы, обеспечивающие ‘повторное выполнение частей 
программы и т. п. 

Приступим теперь к изучению компонентов, из которых состав- 
ляются операторы ФОРТРАНа: констант, переменных, знаков опера- 
ций, выражений и др. После этого изучим правила использования 
этих компонентов для составления отдельных операторов и правила 
составления программ из операторов. 

Наша задача изучения языка ФОРТРАН естественно расчленяется 
на ряд подзадач, основные из которых: 

1. Изучение правил написания ФОРТРАН-программ — синтак- 
сиса языка и семантики — их смыслового значения. 

2. Изучение форм представления обрабатываемых посредством 
ФОРТРАН-программ данных и данных, получаемых в результате их 
выполнения. 

Задание. 1. Что такое исходная и рабочая программы? 

2. Какие функции выполняет транслятор? 

3. Из каких компонент может состоять ФОРТРАН-программа? 

4. На какие классы подразделяются операторы ФОРТРАНа? 

5. Назовите группы выполняемых операторов языка ФОРТРАН. 


Порция 2 
Алфавит ФОРТРАНа 


Символы какого-либо языка, в том числе и языка программиро- 
вания, — это основные, неделимые знаки, в терминах которых пишутся 
тексты на языке. Некоторый фиксированный набор символов, ис- 
`пользуемых для построения компонентов языка, называется алфави- 
том этого языка. Алфавит ФОРТРАНа включает три группы сим- 
волов: | 

1) Буквенные символы — все прописные буквы латинского алфа- 
попа: Я, В, С.Б, Е Е ©. В, ет, мм, О, р, И ©. 
Т.В У, Х, У, 7, 


в текстовых константах и комментариях. я 
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9) Цифровые символы: 0 123456789 
3) Специальные символы: 


Символ Название символа 
пробел 

знак плюс 

знак минус 

знак умножения (звездочка) 
знак деления (черта) 
знак равно 

запятая 

точка 

левая скобка 

правая скобка 
денежный знак 


8—6 + | | С 


Перечисленные символы и только они используются для записи 
ФОРТРАН-программ. Порядок, в котором перечислены символы язы- 
ка, специального значения не имеет. Заметим, что пробел, за исклю- 
чением особо оговоренных случаев, самостоятельного значения не 
имеет и может использоваться свободно для удобочитаемости. 

Из символов языка образуются слова данного языка, т. е. конст- 
рукции, являющиеся минимальными единицами, имеющими неко- 
торый самостоятельный смысл в данном языке. 

В языке ФОРТРАН различаются два типа слов: служебные (заре- 
зервированные) слова и слова пользователя. Слова пользователя слу- 
жат для обозначения данных и некоторых других объектов и выби- 
раются согласно определенных правил программистом по его усмот- 
рению. Служебные слова имеют фиксированное начертание и значе- 
ние. 

Задание. 1. Сколько символов можно использовать при напи- 
сании ФОРТРАН-программ? 

2. Сколько специальных символов имеется в ФОРТРАНе? Назови- 
те их. 


Порция З 
_ Служебные слова 


о Программист может использовать служебные слова только в том 
написании, в котором они определены в грамматике ФОРТРАНа. 
Так, например, служебное слово ЗОВКВОЧТИМЕ не может быть заме- 
нено словом ЗОВРКОСВАМ, или слово ОСІСАІ. словом ВООГ.ЕАМ. 

В табл. 1 приводится перечень служебных слов языка и их рус- 
ский перевод. Служебные слова перечислены в алфавитном порядке. 
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Таблица 1 ` 


„Служебные слова языка ФОРТРАН 


На ФОРТРАНе 


Русский текст 


бО ии т\ | присвоить · 


№ группы 


ВАОКОРАСЕ с | І 
ВАС “Ум С. | шаг назад м 
ВГОСК РАТА еи блок данных в К дне 3 
| АА вызвать р е 
ОМ —_ о“ общий нь 
СОМРІЕХ мд комплексный 2 
сона СФ (ИНЬ продолжать 1 
РАТ оГ данные, 2 
а © РМ иде А | размерность 4 
ём | ВЫПОЛНИТЬ те Ге РЕЗИ ША 
РООВЕЕ РКЕСІЅІОМ, 4 # С!’ повышенная точность 060 А иррагяре 0 
МР 5 4 конец 3 
ЕМОЕП.Е Сло рл > | конец файла 8 
ЕОШҮУАТЕМСЕ А эквивалентность 4 
ВЕДЕЕВА внешний 9 
КМАТ формат 9 
РОМСТЮМ 0% үд | функция 3 
со ТО М перейти к 1 
ІЕ если 1 
МТЕСЕВ < целый 2 
НН В ОУ дұ. ёд | логический 2 
РАОЗЕ У пауза = 1 
ВЕАБ рид читать | "0 Д 
ВЕАБ, ря № вещественный 2 
КЕТОВМ ФТ у. | вернуться 1 
Вар баёи перемотать 1 
стоп 1 
ЗИВВООТМЕ ФИ РУ подпрограмма з 
ҰРІТЕ авы" писать 1 


ў м Ш 


Служебные слова, приведенные в табл. 1, можно разделить на сле- 
дующие группы (номер группы указан в третьей колонке): 

1} слова-предписания для выполнения действий (например, РО, 
САГО. ВЕДЬ 

2) слова-описатели, предназначенные 
пример, ІЧТЕСЕВ, ВЕАГ, ГОССА!,); 

) слова, определяющие структурные подразделения программ 
(например, ЅОВВООТІМЕ, ЕОМСТІОМ); 

4) слова, описывающие группы величин и их отношения 
мер, СОММОМ, О1МЕМ$ ОМ). | 

Задание. 1. Какие типы слов используются в языке ФОРТ- 

РАН? 

2. На какие группы подразделяются служебные слова? 


для описания величин (на- 


(напри- 


и 


Порция 4 
Типы данных 


Данные в ФОРТРАН-программах могут быть представлены в виде 
констант или обозначений переменных — их наименований. В языке 
допускаются данные шести типов: 


целые 

вещественные 
повышенной точности 
комплексные 
логические 

текстовые 


Первые четыре типа составляют группу числовых данных (чисел). . 

Каждый из типов данных имеет свой собственный смысл и может 
иметь различные способы машинного представления. Для каждого из 
типов данных определен набор элементарных операций. 

Данные целого типа являются точным представлением целых 
чисел; данные вещественного типа являются приближенным значе- 
нием вещественных чисел; данные повышенной точности также яв- 
ляются приближенным значением вещественных чисел, однако сте- 
пень приближения их выше, чем степень приближения для вещест- 
венных. 

Данные всех этих трех типов могут быть положительными, отри- 
цательными или равными нулю; нуль не является ни положительным, 
ни отрицательным. 

Данные комплексного типа являются приближенным значением 
комплексных чисел, представляемых в форме упорядоченной пары 
вещественных чисел. Первое из них представляет действительную, 
а второе — мнимую часть комплексного. числа. 

Стандарт языка не определяет диапазон и точность представления 
числовых значений; в каждой конкретной реализации они могут быть 
различными. 

Данные логического типа могут принимать одно из двух значе- 
ний: ТВОЕ. или .ЕАТФЗЕ. (истина или ложь). 

Текстовые данные представляют собой последовательности симво- 
лов, которые могут включать любые символы, имеющиеся на устрой- 
ствах ввода-вывода данной ЭВМ. 

Задание. 1. Перечислите типы данных, используемых в языке 
ФОРТРАН. 

2. Какие значения могут принимать логические данные? 
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Порция 5 
Константы 


Любое данное, которое появляется в программе в явном виде, на- 
зывается константой. В операторах, записанных ниже: 


а = 9.8 
Т= 0.0 
Ет) 


9.8, 0.0, 0.5 и 2 — константы. 

Соответственно шести типам данных в ФОРТРАН-программе раз- 
решается использовать шесть типов констант: целые, вещественные, 
повышенной точности, комплексные, логические, текстовые. Тип и 
значение константы определяется по ее написанию. Например: 


Константа Тип 

1023 : целая 

102.3 . _Вещественная 
2.2453216707 повышенной точности 
(2.37, 1.41) комплексная 

.ГВОЕ. логическая 
6НАВбВГД текстовая 


Задание. 1. Какие данные называются константами? 
2. Можно ли определить по написанию константы ее тип? 
3. Определяет ли написание константы ее значение? 


о Порция 6 
Константы (продолжение) 


Целые константы 


Целая константа записывается в виде непустой строки цифр, перед 
которой может стоять знак плюс или минус. Целая константа обозна- 
чает целое десятичное число 1. 

Знак плюс перед положительными константами можно опускать; 
перед отрицательной константой обязательно должен стоять знак 
минус. 

В табл. 2 приведены примеры правильной и неправильной записи 
целых констант. 


1 В двух операторах языка ФОРТРАН: ЗТОР и РАЏЅЕ, могут использоваться 
восьмеричные (не более, чем 5-разрядные) константы, для записи которых использу- 
ются цифры 0, 1, 2, 3, 4, 5, 6, 7. 
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Таблица 2 


Правильная Недопустимая запись 
т целых констант Ошибки 
констант 
—274 —274. десятичную точку нельзя использовать 
в записи целой константы 
--400 400,000 «запятую нельзя употреблять ни в за- 
писи целой, ни в записи вещественной 
Е константы 
29 523 43 212 952 317 417 121 слишком велико для большинства ЭЦВМ 


Задание, Какие константы называются целыми? 


Порция 7 
Константы (продолжение) - 


Вещественные константы 


Вещественными называются константы, имеющие в своей записи 
десятичную точку *, которая отделяет целую часть от дробной, или 
порядок, имеющий вид Ем, где п — одно- или двузначное целое, по- 
ложительное (без знака или со знаком --) или отрицательное (со зна- 
ком —). Порядок в общепринятой записи обозначает наличие у числа 


множителя вида 10”. Например: 

82 — целая константа, а 

0.32Е--2 или 82. (или 82.00) — вещественная константа. Эти чис- 
ла не взаимозаменяемые, поскольку формы кодирования целых и ве- 
щественных чисел в ячейках памяти ЭВМ и способы выполнения над 
ними арифметических операций различны. 

В вещественной константе десятичная точка может стоять в на- 
чале, в средине и в конце числа. Запись вещественного числа может 
содержать любое количество цифр, но, в зависимости от ЭВМ, только 
определенное количество старших разрядов будут занесены в память 
ЭВМ, а все остальные будут потеряны. Об этом следует помнить, когда 
приходится иметь дело с очень большими числами. 

Форма представления вещественных констант без десятичной экс- 
поненты (но с десятичной точкой) называется формой представления 
с фиксированной запятой (или формой Е). В записи вещественной кон- 
станты в форме Е целая или дробная часть, равная нулю, может быть 
опущена, но не обе одновременно. То есть число 27 на ФОРТРАНе 
в форме Е можно записать как 27., или 27.0, а число 0,27 как 0.27, 
или .27. 


1 В ФОРТРАНе вместо привычной нам «десятичной запятой» используется «де- 
сятичная точка», з 
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Другой формой записи вещественных чисел является форма с пла- 
вающей запятой (или форма Е): после целой или вещественной кон- 
станты (мантиссы) ставится буква Е и одно или двузначное целое по- 
ложительное или отрицательное число (показатель степени). Такая 
запись используется только для представления вещественных (а не 
целых констант) и означает, что исходная константа должна быть ум- 
ножена на 10 в указанной степени. Форма Е удобна для записи очень 
больших или очень малых чисел. 

Если показатель степени — положительное число, знак плюс пе- 
ред ним может быть опущен. Перед отрицательным показателем сте- 
пени обязательно должен стоять знак минус. Ни мантисса, ни порядок 
в записи константы в форме Е не могут быть опущены. 

В табл. 3 приведены примеры допустимой и недопустимой записи 
вещественных констант. 


Таблица 8 
Правильная запись Недопустимая запись 
вещественных вещественных Ошибки 
констант констант 
а Е Ы ЕВ 
-- 15.016 -- 15,016 запятую употреблять нельзя 
—5.0Е--6 —5.0Е--6.5 показатель степени должен быть целым 
1.2510 1.25203 показатель степени не может быть трех- 
значным числом 
6.205Е12 6.205Е63 т слишком велико для большинства 
25.32Е 4-5 Е--5 нет мантиссы 
—9.02Е4 —9.02Е | нет порядка 
2Е1 2Е.—1 лишняя точка 
4Е0 4Е001 показатель степени трехзначный 
85Е00 85Е0.0 показатель степени должен быть целым 
ЗЕ—2 ЗЕ— 1.1 » 


——==—__—__—_——————————_—_————_————— 


Задание. 1, Запишите следующие числа в виде вещественных 
констант, соблюдая правила ФОРТРАНа: 

а) 347; б) 74,32; в) —5100; г) 102%; д) 0,0000000834; е) —20; 
ж) — 45,2171. ` : 

2. Все приведенные ниже записи неприемлемы в качестве вещест- 
венных констант. ( ь 

Почему? 

а) —235,000; б) 2Е--4.1; в) 4,78256Е—12; 

г) +2856; д) ЗЕ—43.; е) 25.04Е68 

3. Определите, являются ли в каждом случае две рядом стоящие 
константы записью одного и того же числа: 

а) 16.9 -- 16.9 

б) 23 000. 2.3Е4 


15 


Порция 8 
Константы (продолжение) 


Константы повышенной точности 


Вещественные константы с плавающей запятой могут представлять- 
ся с обычной (форма Е) и повышенной точностью — форма О. Для изо- 
бражения вещественных чисел повышенной точности и используется 
форма О (удвоенной точности — РООВІЕ РКЕСІЅІОМ). Число в 
форме Ю записывается следующим образом: после целой или вещест- 
венной константы (мантиссы) ставится буква Ю и любое одно- или 
двузначное целое положительное или отрицательное число (показа- 
тель степени). Например, число е в форме Е записывается как 2.718282, 
ав форме О — как 2.718281828459045р0. В остальном правила записи 
констант в форме О те же самые, что и для вещественных констант с 
плавающей запятой (форма Е). 

Задание. Запишите на ФОРТРАНе вещественную константу 
375453214891.2254 в форме О. 


Порция 9 
Константы (продолжение) 


Комплексные константы 


Комплексная  (СОМРІЕХ) константа записывается в виде двух 
вещественных констант, разделенных запятой и заключенных в кру- 
глые. скобки. Первая константа является записью действительной 
части комплексного числа, а вторая — мнимой. Примеры записи ком- 
плексных констант: 


Комплексное число Представление в ФОРТРАНе 
2,7 4 17,51 (2.7.7.91) 
2. 103 — 18,19 (2.ЕЗ, — 8.19) 


Обе части комплексной константы подчинены правилам записи 
вещественных констант с плавающей или фиксированной запятой. 

Ни мнимая, ни действительная часть комплексного числа не мо- 
жет быть представлена константой типа повышенной точности. На- 
пример, запись (.6408, — 25.3) или (.647562107, 23.453408) недо- 
пустимы. 

Задание. Запишите на ФОРТРАНе следующие комплексные 
числа: а) 315,3 -- 12,22; б) 21.10? - 12,1; в) 3.10% — 3,155, 
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Порция 10 
Константы (продолжение) 


Логические константы 


Имеются две логические константы: .ТКОЕ. (истина) и .ЕАТЗЕ. 
(ложь). 

При написании этих констант точки справа и слева от слов ТВОЕ 
и БАГЗЕ обязательны. 

Задание. 1. Сколько имеется логических констант? Запиши- 
те их. 

2. Сколько форм записи чисел имеется в языке ФОРТРАН? Како- 
вы они? ? | 


Порция 11 
Константы (продолжение) 
Текстовые константы 


Текстовая константа записывается в виде: 
РЕ п 
Здесь Н — буква алфавита, служащая признаком константы тексто- 
вого типа; | 

п — целая константа без знака, значение которой равно количе- 
ству символов, составляющих данную текстовую константу; 

НЫ...  — значение текстовой константы, представленной указан- 
ной записью, где каждое & (і = 1, 2, ..., п) — любой символ, доступ- 
ный устройствам ввода-вывода данной ЭВМ. 

Пробел является значащим символом в текстовой константе. Пр и - 
меры записи текстовых констант: 


Запись на ФОРТРАНе Значение текстовой константы, 
5ННОМЕР НОМЕР 

19НЗНАЧЕНИЯ, , ПЕРЕМЕННЫХ ЗНАЧЕНИЯ, , ПЕРЕМЕННЫХ 
4Н1234 1234 


Текстовые константы могут быть использованы только в операторе 
начальных данных РАТА (см. порцию 98, гл. П) или в списке факти- 
ческих параметров в операторе САІІ. (см. порцию 122, гл. ПП. 

Максимальная длина текстовой константы зависит от конкретной 
реализации языка. Например, при выводе на печатающее устройство 
длина текстовой константы не должна превышать размеров строки 
используемого устройства. р. 

В памяти машины под текстовые константы отводится ряд после- 
довательно расположенных ячеек; в каждую ячейку помещается не- 
которое количество символов, определенное конкретной реализацией. 
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Задание. Запишите следующие последовательности символов 
в виде текстовых констант: 
НАЧАЛО, РЕЗУЛЬТАТ, ТАБЛИЦА! 23 


Порция 12 
Константы (продолжение) 


Задание. 1. Укажите, какие из приведенных ниже записей 


являются допустимыми для записей ‘констант целого типа: 


1) 45 6-0. 


4) —0 9 2:3 
5) +0 10) —2,1.10° 


11) — 0003 
12) 95.0 
13) ++ 005 
14) 1.10 
15) — 00750 


2. Запишите приведенные ниже числа в виде констант: 


а) целого типа: 


1) 0,00938 . 105 · 2) 345 000. 108 
4) 0—2 _ 5) 0,2 2007: 


б) вещественного типа 


3) 3 450000. 107% 


3. Запишите приведенные ниже числа в виде вещественных кон- 


стант в форме Е: 


и 107 2) 500 3) 3. 10° 4) —955. 10 


5) | 90 


4. Какие из приведенных ниже записей допустимы в качестве кон- 
стант в языке ФОРТРАН? Определите их тип и форму представления: 


1) Е 02 
2) 0,142 

во 

4) 1.Е? 

5) 21Е1 

6) 3.7526879305 

7.64, =59) 

8) 15НСКОРОСТЬ, , КМ/ЧАС 
9) 21.Е1 

10) 31.2Е 125 

11) (972,1,31Е 10) 

1) Б) 
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13) 00125 
14) —0.0Е 
15) 00195. 


16) ИНВЕДОМОСТЬ ‚_,5 
17) + 123Е?2 . 
18) 390.0001р6 


19) 142. 
20) 142 

21) 142 — Е? 
22) 149. Е 2 


23) 6Н85Е0.1 
24) 149.(— Е) 9 


95) 142Е 02 31) 142Е0 


26) ЗНМАССИВ, А _ 32) —0 
27) (— 142) ЕЗ 33) + 0.0 
28) (142) ЕЗ 34) 542.035721805 
29) 4НА—ВҮ 35) 5420351798650 —9 
30) Е? ° 36) ЭНА == 4.22Е — 4 
Порция 13 
Переменные 


Действия ФОРТРАН-программы могут применяться не только к 
константам, но и к значениям переменных. Переменные в языке-—это 
некоторым образом обозначенные объекты, значения которых могут 
изменяться в процессе выполнения программы. 

Каждой переменной в программе или некоторым их упорядочен- 
ным группам, называемым массивами, ставится в соответствие назва- 
ние (обозначение, имя) — идентификатор. 

Идентификаторы в языке ФОРТРАН являются словами пользова- 
теля, выбираемыми согласно определенным правилам. Используются 
идентификаторы не только для обозначения переменных и их масси- 
вов, но и для обозначения других языковых объектов, о которых 
речь будет идти по мере изложения курса. 

Правила образования идентификаторов в ФОРТРАНе весьма про- 
сты: 

1. Идентификатор — это последовательность букв или цифр, пер- 
вым символом которой является буква. 

2. Общее число символов, составляющих идентификатор, не долж- 
но превышать шести. 

Примеры идентификаторов: 


А САММАб 
А12 КЕАГ, 
А5ВЗ Е 

ВЕТА ТОМ 
РОРТЕ МАК 


Идентификатору переменной в машинной интерпретации соответ- 
ствует название фиксированного поля памяти, например адрес ячей- 
ки, а ее значением в каждый данный момент вычислительного про- 
цесса является содержимое данного поля, представляющее собой не- 
которую константу соответствующего типа. 

На упорядоченные группы данных — массивы—в языке ФОРТРАН 
пакладывается следующее ограничение: они должны быть одного и 
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того же типа. Идентификатор, именующий массив переменных, назы- 
вается идентификатором массива. 

Введем понятие обращения к переменной. 

Обращением к переменной называется извлечение ее значения 
или присвоение ей значения. 

При работе с массивами ФОРТРАН позволяет обращаться либо 
ко всем его элементам одновременно (что возможно только в операто- 
рах ввода — вывода), либо к отдельным его элементам. Обращение 
к массиву осуществляется посредством его идентификатора. Для об- 
ращения к элементу массива используется идентификатор этого мас- 
сива, за которым в круглых скобках указываются индексы, опреде- 
ляющие позицию данного элемента в массиве. Такая конструкция — 
идентификатор массива с последующими за ним в круглых скобках 
индексами — называется переменной с индексами. Язык допускает 
массивы, определяемые не более чем тремя индексами. При этом, если 
массив определяется двумя или тремя индексами, между ними ‘при 
записи переменной с индексами ставятся запятые. 

Примеры переменных с индексами: 

КЕ АЗ (12) 


Х (2,Р,6)` 
А23 (К,К-2) 50 
Как видно из примеров, в качестве индексов могут быть исполь- 
зованы константы (целые положительные), а также переменные (цело- 
го типа) и даже некоторые выражения (в нашем примере К--2). 
Таким образом, будем отличать два вида переменных — простые 
переменные, обращение к которым осуществляется посредством их 
идентификаторов, и переменные с индексами (или индексированные 
переменные), являющиеся элементами массивов, обращение к которым 
осуществляется посредством идентификаторов соответствующих мас- 
сивов, за которыми следуют в круглых скобках индексы. О масси- 
вах и переменных с индексами более подробно речь будет идти в третьей 
главе. 
В ФОРТРАН-программе разрешается использовать пять типов 
переменных. Для обозначения типов переменных используются слу- 
жебные слова-спецификаторы: 


МТЕСЕК (целые) 

ВЕАГ, (вещественные) 
РрООВІЕ РВЕСІЅ1І0МА (повышенной точности) 
СОМРІЕХ (комплексные) 
ІОаІСАІ, (логические) 


Задание. 1. Назовите правила формирования идентифика- 
торов переменных. 
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2. Каково назначение идентификатора переменной? 
3. Каков смысл понятия обращения к переменной? 
4. Сколько типов переменных допустимо в языке ФОРТРАН? 


Порция 14 
Переменные (продолжение) 


Целые переменные 


Для целых и вещественных переменных имеется два способа ука- 
зания их типа: явный и неявный. Каждый из этих способов имеет силу 
только в той программной единице, в которой он определен. 

Для всех остальных типов переменных их тип должен быть задан 
явно в каждой программной единице. 

1. Если идентификатор переменной не описан спецификатором 
в данной программной единице и начинается с одной из букв 


БУК, Е, М, М 


то он представляет переменную целого типа. Такой способ указания 
типа называется неявным. 

В табл. 4 приведены примеры допустимых и недопустимых иден- 
тификаторов целых переменных при неявном указании их типа. 


Таблица 4 
Конструкции, недо- 
п пустимые в качестве 
равильные идентификаторов 
наименования целых целых переменных Ошибка 
переменных при неявном задании 
типа 
КА АК Начальная буква недопустима для обозна- 
чения целой переменной; 
тома ГОМО 125 содержит более шести символов; 
МЕТКВ БМЕТК первым символом не может быть цифра; 
МІЗН МІ ФН содержит символ, не являющийся ни бук- 


вой, ни цифрой 


2. Для явного задания типа переменной используются указанные 
ранее спецификаторы типа, соответствующие пяти типам идентифи- 
каторов переменных, а именно: ІМТЕСЕВ, ВЕАГ, РООВГЕ РВЕ- 
СІЅІОМ, СОМРІЕХ, ГОС!САГ.. | 

Если идентификатор переменной описан в программной единице 
спецификатором ПУТЕСЕК, то связанная с ним переменная в данной 
программной единице считается переменной целого типа, независимо 


от первой буквы ее идентификатора. 
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Пример явного описания типа целых 
переменных: 


ІМТЕСЕВ ХІЕТ, АОМ, ВІ, ВОЅ 


Приведенное описание означает, что переменные ХІЕТ, АОМ, ВІ, 
КОЗ будут использованы в данной программной единице в качестве 
целых. 

Задание. Определите, какие из следующих идентификаторов, 


заданных неявно, допустимы в качестве идентификаторов целых пере- 
менных: Р 


а) МАС в) Х2АМС д) ГОМЕ ж) КАТЕТ 
б) АМС г) Қ7 е) ІММА З) АІВ 


Порция 15 
Переменные (продолжение) 


Вещественные переменные 


Идентификатор вещественной переменной может быть описан дву- 
мя способами. 

1. Если первая буква идентификатора переменной отлична от В 
К, Г, М, Ми переменная не описана в данной’ программной единице, 
то ее тип считается вещественным. Это неявный способ указания типа. 

Как легко теперь понять, при неявном задании типа переменных 
трансляторы ФОРТРАНа по первой букве их идентификаторов опре- 
деляют принадлежность переменных к целому или вещественному 
типу. В табл. 5 приведены примеры допустимых и недопустимых иден- 
тификаторов вещественных переменных при неявном их описании. 


Таблица 5 


Конструкции, недо- 
нон качестве 
идентификаторов 
вещественных пере- Ошибки 
менных при неявном 
задании типа 


Н 
НЕЕ РНИИ НИ ЧН 


Допустимые иденти- 
фикаторы вещест- 
венных переменных 


ХУ Х+У содержит знак, не являющийся ни буквой, 
ни цифрой; 

АТРНА КАІРНА начинается с недопустимой буквы; 

$12115 $123Т15 содержит более шести символов; 

С209 С2.09 содержит знак, не являющийся ни бук- 

р вой, ни цифрой; 

КО к-+-0 » » » 

ГКАМЕЗ „ ЕВАМЕ Ф » » » 


ЕСЕ миии гы о еНЫЫН Ш. <. Е. ый 
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2. Если идентификатор переменной в начале программной едини- 
цы описан спецификатором КЕАГ, то такая переменная считается 
вещественной, независимо от первой буквы ее наименования. Таким 
способом тип переменной описывается явно. 

Пример явного описания типа веществен- 
ных переменных: 

ВЕАГ МАХ, КОМ, Ј, 12 


Переменные МАХ, КОМ, Ј, 12 объявляются вещественными. 
Задание. Определите тип переменных, заданных следующими 
идентификаторами, описанными неявно: 


1) МАТА; 7) АВГ; 13) КАС2; 
2) КОГА; .8) АЗ; 14) С25В; 
3) ЭТОР; 9) Л; 15) ЕОВ7; 
4) ВОЕ 10) 25; 16) ОВС; 

5) ГУАМ; 11) ХЗ; 17) МАВА; 
6) ІУД; 12) 12В; 18) МАРКА 


Порция 16 
Переменные (продолжение) 


Идентификация переменных 


В машинных программах идентификаторам переменных соответ- 
ствуют имена полей памяти (адреса ячеек), а значениям переменных — 
содержимое этих полей. Присвоение начальных значений переменным 
и изменение их значений осуществляется в результате выполнения 
операций ввода данных или специальной операции, называемой опе- 
рацией присвоения. Последнее присвоенное (или введенное) значение 
называется текущим значением, или просто значением переменной. 

Возможность использовать до шести символов для наименования 
переменных представляет определенные удобства: при составлении 
выражений идентификаторы могут быть выбраны так, чтобы они ука- 
зывали на естественный смысл величин, входящих в выражение. 

Например: УОГТ$, ОНМ, ЕАКАО, ЕОЮСЕ, АМРЕБ, ВЕС, 
ГЕМСТЕЯ 

При этом нужно следить за соблюдением правил выбора первой 
буквы для обозначения целых или вещественных переменных, а если 
удобными оказываются идентификаторы, первая буква которых не 
соответствует данному типу, то их необходимо описать спецификатором 
соответствующего типа. | 


1 Напоминаем, что в идентификаторах переменных можно использовать буквы 
только латинского алфавита. Поэтому наименования ВОЛЬТ, СОПР, АМПЕР ит. п, . 
недопустимы. - 
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Например, идентификаторы 
МА55, КАРРА, МОРОГ, ГАМСЕ 


не могут быть неявно заданными идентификаторами вещественных 
переменных. Но вместо явного их задания в спецификации БЕАІ, 
можно добавить к ним впереди одну букву, определяющую соответст- 
вующий тип переменной: 


АМАЅ5, ХКАРРА, ВМАТВ, ЕГАМСЕ — для вещественных, 
` МАЅ5, КАРРА, МАТВІХ, ГАМОЕ — для целых. 


Заметим, что злоупотреблять «длинными» идентификаторами, уве- 
личивающими число символов, составляющих программы, и тем са- 
мым вероятность внесения в них ошибок при перфорации, не рекомен- 
дуется. 

Внимание! В дальнейшем при изложении материала будет подра- 
зумеваться, что речь идет об одной программной единице и что иден- 
тификаторы целых и вещественных переменных описаны неявно, если 
противное не будет оговорено. и , 

Задание. 1. Укажите, какие из следующих последователь- 
ностей символов допустимы в качестве идентификаторов целых пере- 
менных, вещественных, а какие вообще не допустимы в качестве иден- 

тификаторов переменных. | 


А2, 2А, А—2, Р(Х), А(2), АЗВС, АВСЬ71А, ААВ, АВВІ, АВ.АС, 
АЗВС/, АВ»АС, АВАС, В/АС, А*В, ОТА, ТЛТ, (ВАС), Е2, РО, ЕМО”; 
ВЕСІМ, ЅҰІТН, М125, 195М, АКСЕ, АТ.СОІ., 101. РІМСЗ. 


Заполните в своей рабочей тетради следующую таблицу: Р 
Идентификаторы целых Идентификаторы веществен- Последовательности символов, 
переменных ных переменных недопустимые в качестве иденти- 


фикаторов 


| 
ЕАН: ПОМНИ 20 НИ 


2. Определите тип каждой из приведенных ниже констант и пере- 
менных: 


а) ХЅ0ВІ з) ОРЕВМО 

6) 0.3333 и) (21.103, — 1275.1) 

в) ЈАМЕЅ к) 1№ЅІрЕ 

г) (52.80, -- 2.75) л) 273546124.04-9 

д) КООМТ м) АНМАМЕ 

е) 5280.1 н) 7НСТУДЕНТ 
ж) МАЅЅ о) 4НКУРС 

_ р) 5555 
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| Порция 17 
Переменные (продолжение) 


Логические, комплексные 
и повышенной точности переменные 


Идентификаторы логических, комплексных и повышенной точно- 
сти переменных (ГОСТСАГ, СОМРІЕХ, РООВТЕ РВЕС!$ ОМ) со- 
ставляются по общим правилам написания идентификаторов перемен- 
ных, т. е. содержат от 1 до 6 буквенно-цифровых символов и начина- 
ются с буквы. 

Идентификаторы логических и комплексных переменных и пере- 
менных повышенной точности обязательно должны быть описаны в 
той программной единице, в которой они использованы, специфика- 
торами соответствующего типа. Язык не допускает неявного указания 
типа этих переменных. 

Примеры описания типов переменных: 


РОПВГЕ РКЕСІЅІОМ.РХІ5, ВАС, ЕМ, МІ, А 
СОМРЕЕХ С, В, В, Уу 
ГОСІСАІ, МЕК, У, 106 


Задание. Опишите переменные ОК, 0$, ОТ как комплексные; 
А1, А2, АЗ как логические и АІТ, ВМС как переменные повышенной 
точности. 


Порция 18 


Переменные (продолжение) 
Текстовые значения переменных 


Среди переменных, выделенных в языке ФОРТРАН, нет перемен- 
ных текстового типа. Это объясняется тем, что действия над текстовы- 
ми переменными в языке весьма ограничены; они сводятся к вводу- 
выводу текстов, используемых для придания наглядности выводимой 
информации, для выдачи заготовленных комментариев и реплик в ди- 
алоговых системах. 

Значения текстовых констант могут принимать переменные любого 
из имеющегося в языке типов (целые, вещественные, повышенной точ- 
ности, комплексные, логические). При этом, поскольку комплексным 
значениям и данным повышенной точности обычно отводятся в памяти 
поля двойного размера, переменным этих типов можно присваивать 
текстовые значения размера, соответственно большего в два раза. 
Присвоение текстовых значений переменным осуществляется опера- 
тором "РАТА (см. порцию 98, гл. ІШ) или операторами ввода. 

Задание. 1. Сколько типов данных имеется в языке ФОРТ- 
РАН? Перечислите их. 
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2. Сколько типов переменных имеется в языке ФОРТРАН? Пере- 
числите их. = 

3. К какому типу должен быть отнесен идентификатор для того, 
чтобы можно было присвоить ему значение текстовой константы? 


Порция 19 
Арифметические операции 


В ФОРТРАНе определены следующие арифметические операции: 
сложение, вычитание, умножение, деление и возведение в степень, 
для которых приняты обозначения: 


Сложение Б 
Вычитание — 
Умножение ж 
Деление / 


Возведение в степень. жж 


Все остальные операции (например, извлечение квадратного корня) 
должны быть сведены к этим пяти операциям или определены с по- 
мощью функций, о которых будет идти речь ниже. 

Задание. Сколько арифметических операций имеется в ФОРТ- 
РАНе? 


Порция 20 
Выражения 


В языке ФОРТРАН допустимы два вида выражений: арифметиче- 
ские и логические. 

Термин «выражение» используется в ФОРТРАНе в обычном алгеб- 
раическом смысле. Выражение может состоять из констант, перемен- 
ных, переменных с индексами, указателей функций (например, 
УМ (Х--2.1)), которые могут быть связаны между собой символами 
операций и скобками. Каждая из перечисленных компонент являет- 
ся частным случаем выражения. Выражение — это правило для оп- 
ределения одного числового или логического значения. 

В состав арифметических выражений могут входить: 

числовые константы 

простые числовые переменные 
числовые переменные с индексами 
указатели функций 

Первичное арифметическое выражение — это константа, перемен- 
ная, указатель функции или выражение, взятое в скобки. 
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Арифметическим выражением называется любое первичное ариф- 
метическое выражение или последовательность первичных арифме- 
тических выражений, соединенных надлежащим образом знаками 
операций. ь 

Если в выражение входят переменные, то при определении соот- 
ветствующего значения используются текущие значения этих перемен- 
НЫХ. 

Например: 


Выражение \^ а Значение выражения 

№24 Текущее значение целой переменной М24 

3.14159 Вещественная константа 3,14159 . 

А-- 2. 1828 Сумма значения вещественной переменной А и кон- 

станты 2.1898 

УВ—УТ Разность значений вещественных переменных ОВ и 
УТ 

Х:-ҮАҮ Произведение значений переменных Х и ҮАҮ 

РЕК /6.2832 Частное от деления значения вещественной перемен- 
ной ЕКҚ на константу 6,2832 

СІ 2 Квадрат значения переменной СІ 


Задание. Напишите следующие выражения на ФОРТРАНе: 
а) х+у+2 

6) ах + бу + сг 

в) В + 98° 


Порция 21 
Правила записи арифметических выражений 


При написании арифметических выражений программист должен 
соблюдать следующие правила. | 

Правило 1. Недопустима последовательная запись двух знаков 
операций. 

А*—В — выражение не имеет смысла. 
А*(—В) — допустимо. 

Правило 2. Скобки в выражениях, как это общепринято в мате- 
матике, используются при необходимости для указания очередности 
выполнения операций; допускается использование лишних скобок. - 

Используя скобки при составлении выражений ФОРТРАНа, сле- 
дите за тем, чтобы каждой левой (открывающей) скобке всегда соот- 
ветствовала правая (закрывающая) скобка. 

Например, в ФОРТРАНе недопустимо выражение (А-+-В)*С), т. к. 
в нем нарушено соответствие между скобками. Его следует записать 
в виде: ((А--В)*С). 
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Правило 3. Для определенности выражения вида о следует. 
писать со скобками: (Аз*В)==С или Ағз(В»ғС) соответственно тому, 
что необходимо вычислить. 

Задание. Напишите выражения на ФОРТРАН, соответст- 


вующие следующим формулам. При необходимости используйте скоб- 
ки. 


а) 3+ у О 
ии’ +9 + 
2 2 2 х“ 

В +- = ЮУ 
ь--а 
г) а + и 
Порция 22 
Правила записи арифметических выражений 
(продолжение) 


Правило 4. Если очередность выполнения операций в выражении 
не определена скобками, то операции выполняются в следующем 
порядке: 

1. Вычисление значений функций !. 

2. Возведение в степень. 

3. Умножение и деление. 

4. Сложение и вычитание. 

Следующие два выражения эквивалентны: 

Е:+24-А+В--С/р 

(Е»*9)--(А*В)-+-(С/Ю) 

Правило 5. Внутри последовательностей умножений и делений, 
сложений и вычитаний, в которых порядок операций не определен 
скобками, действия выполняются подряд слева е0. 


5 
Поэтому выражение 5/Т»В означает Е но не 


т а $ ТВ 
означает (5—Т)-ЕВ, но не $—(Т-+Ю) 


тк: 


1 В языке ФОРТРАН допускается использование нескольких типов функций 
(они будут рассмотрены в гл. ТУ). Указателем функции называется конструкция, 
состоящая из идентификатора функции, за которым в скобках следуют аргументы 
(называемые в языках программирования фактическими параметрами), отделенные 
друг от друга запятыми. 
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Правило 6. ФОРТРАН накладывает некоторые ограничения на 
использование данных различных типов в одном и том же арифмети- 


ческом выражении. 
Таблица 6 


Значение типа арифметического выражения для операций --, —, *, / 
Тип 2-го операнда 


а в М Повышенной Логи- 
Целы ещественны точности Комплексный К 


| | | 


Тип 1-го операнда 


Целый 


д РЧИЕЫО 


Вещественный | — | Вещественный | Повышенной Комплексный — 


Целый Й 


точности 


Повышенной точ- Повышенной Повышенной 


ности точности точности 


И ИЕА 
| ‚| = 


Комплексный — | Комплексный — Комплексный 


Ж | | | 


Логический — 
а А 
А Таблица 7 
Значение типа арифметического выражения для операции ** 


Тип показателя 


УмФМ о 


Тип основания Повышенной Комп- | Логи- 
Целый Вещественный точности лекс- че- 
ный ский 
Целый Целый | — | — | — | — 
Вещественный Вещественный | Вещественный | Повышенной — — 
точности 
| | 
Повышенной точ- | Повышенной Повышенной Повышенной — — 
ности точности точности | точности 
Комплексный ` | Комплексный | Қомплексный | — | — | — 
|| 
Логический | — | — | — | — | — 


м || 


Таблицы 6 и 7 иллюстрируют правила определения тина значения 
результата арифметических операций. Недопустимые сочетания ком- ; 
понент отмечены в таблицах знаком «—». щ = 

Как видно из таблиц, с данными целого типа в арифметическом вы- 
ражении не могут быть использованы данные никакого другого типа... 
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Исключение составляет операция возведения в степень: данное любого 
числового типа может быть возведено в целую степень. Кроме того, 
данные комплексного типа могут встречаться в одном выражении толь- 
ко с данными вещественного и комплексного типа, а также не могут. 
быть использованы в качестве показателя степени. 

Правило 7. Скобки в выражениях обозначают очередность выпол- 
нения операций (а также используются для указания аргументов функ- 
ций, о чем будет речь далее). В частности, между скобками символ 
умножения опускать нельзя. Так, выражение (А*В)(С*Ю) недопусти- 
мо в ФОРТРАНе. Оно должно быть написано в виде (А»*В)*(С»О). 

В табл. 8 приведены примеры арифметических выражений в обще- 
принятой записи и на ФОРТРАНе. 


Таблица 8 


Общепринятая запись Соответствующая запись Запись неправильная или не 


выражения на ФОРТРАНе соответствующая исходной 
ар АВ АВ (пропущен знак операции) 
х5 Х»+(—Ү) Хғ — У (два символа опе- 
раций стоят рядом) 
су (А Е В)/(С -- р))*«(М—1)] (А -- В)/(С- РБ) М — 1 
ад „ё а У мые" 
с— 4 
6-10 . ВЕ 10. В-- 10 (компоненты опера- 
ции сложения разного типа) 
612.4 В»*(С +- 2.0)*Ю В»*С -- 2. (= и + 24) 
.6-а 
2.0 А*В/(С+р) АғВ/Сғр (- а 
с.4 р 4 Р 
сас (А + В)/С)+4.3 | (А+ В)/С4.3 (= аа | 
с 
а [0 (х2 + а) — 0 Р»(В»(Х»+*2 -- А) — р) |РБ»(В*+(Х**2) 4- А) — 0, (нет 


соответствия между скобками) 


Задание. 1. В каждом из следующих выражений укажите по- 
следовательность выполнения операций: 


а) А+В--С в) ХғҮ-А/В 
б) А-В--Сы? т) АЪВЧС:р+-Х3 


2. Даны выражения на ФОРТРАНе: 
а) А-+-В/С+р б)Аж*2 --В/С+О 


Укажите, каким из записанных ниже выражений они соответствуют 


1) 29) 
ШГ. 
а) НЕ а) а + 2 


бана бе 


3. Какие из приведенных ниже записей являются арифметически- 
ми выражениями на ФОРТРАНе? Определите тип их значений. 


1) А—]1 
2) М--0.25 
3) 9.81--А2 
4) А*В/С—В*Қ 8 
5) (А-В) М—А-- ВВ —(2=*2/ Ань? 4 Уно Вы) аә], 
6) (1+ 325. М)—(К/-—1 17 №2 /(М-- №» 3 
7). Х-ЕУКУ 2-1. 0+2 -- (22 — У 9) 2 
8) к ОН 0*2)**3/(Х —7) 
9) 5+А 
10) А/5 
11) ХМ 
12) М+7 
13) 12—К--342-М-Е 7] 
14) 18*+А-| 17+К 
15) 18.+А 4-17.*В 
16) 18+Г.-+- 17-К 
17) (18:1.4-17+К)/(Ј4- «М 
18) (2А --3+В)ә.5 
19) (2А -4-3:В)2 
20) (К--1)+Ј 
21) (М--О»3)(Х—3.*У) ә 
29) (К--Г=Х 
23) 2»+К 
24) Ко 
25) (Кз»Х МУ) 3 
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Порция 23 


Правила записи арифметических выражений 
(продолжение) 


Задание. Ниже приведены общепринятые записи выражений 
(слева) и соответствующие им арифметические выражения на ФОРТ- 
РАНе, каждое из которых содержит по меньшей мере одну ошибку. 
Найдите ошибки и напишите правильные выражения. 


а) х- (80)? . Х--3.+У 2 

6) -х-+ 2 Х(Ү—5)/Ү +9 

з па 9 ОВСЛЬВЫН 
И, (К-ЕБ»Х +3.1416) (0-Х)? 
и АРСО А4) 

д а С зов зоа 40, (ох) 


20% 


Порция 24 
Логические выражения 


Кроме арифметических выражений, т. е. выражений, которые при- 
нимают числовые значения, в ФОРТРАНе допускаются также логи- 
ческие выражения, принимающие значения логических констант 
„ТВОЕ. или .ЕАТЅЕ. „Логическое выражение — это правило для 
вычисления одного логического значения. 

В состав логических выражений могут входить: 

логические константы 
логические переменные 
элементы логических массивов 
указатели логических функций 
символы логических операций 
отношения 

скобки 

Первичными логическими выражениями являются логические кон- 
станты, логические переменные (простые или с индексами), указатели 
логических функций, отношения и любые как угодно сложные выра- 
жения, заключенные в скобки. `` 
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Задание. 1. Что называется логическим выражением? 
2. Назовите элементы языка ФОРТРАН, которые могут входить 
в состав логических выражений. 


Порция 25 


Логические выражения (продолжение) 


Логические операции 


В табл. 9 приведены логические операции, допустимые в языке 
ФОРТРАН, и таблица истинности результатов. Буквами а и 6 обозна- 
чены операнды типа ГОС]САГ. 

Задание. Перечислите логические операции, принятые в 


ФОРТРАНе. 
Таблица 9. 
Обозначе- Е 
о Название операции ИБО Таблица результатов 
операции ния операции 
ее Неве НЫС | ПИАНИНО ИИА 
а „МОТ.а 
Логическое отри- Р 
Зана МОТ. а ТВОЕ. .РАІЅЕ. 
БРАТЕ. ЕЕ: 
|] 
а 
Логическое умно- „ТВОЧЕ. | БАТЗЕ 
.АМО. | жение «и» (конъ- | а.АМО.б = 
° | юнкщия) ‚ТВОЕ. | ТВОЕ. | .БАГЗЕ. 
.ЕАТЗЕ. | ЕАІЅЕ. | ЕАГЗЕ. 
Я СС ОС ОС ЕЯ Е НЕНЕЕНЕНЕ Е 5 
р 
а 
Логическое сло- ТЕШЕ. | ЕАТ5Е 
„ОК. | жение «ИЛИ» а.ОВ.Ь 
(дизъюнкция) „ТВОЕ. | „ТВОЕ. | ТВОЕ. 
„| „БАТЅЕ. | „ТВОЕ. | .БАТЗЕ. 


О И ОИ ЕЕ, ПОИИИОИИ 
9 5—1609 33 


Порция 26 
Логические выражения (продолжение) 


Отношения 


Отношением называется два арифметических выражения, связан- 
ные операцией отношения. 

Отношение является частным случаем логического выражения и, 
следовательно, может принимать значение .ТВОЕ. или .РАТЅЕ.. Зна- 
чением истинности отношения является .ТКОЕ., если условие, выра- 
женное операцией отношения, выполнено, и .ЕАТЅЕ., если это усло- 
вие не выполняется. ' 

В табл. 10 приведены знаки операций отношения, допустимые 
в языке ФОРТРАН, а также правила получения значений истинности 
их результатов. Буквами с и 4 обозначены арифметические выражения. 


Таблица 10 
Операция Пример Результаты выполнения операции 
отноше- Название операции использова- 
ния ния операции „ТВОЕ. „ЕАТЗЕ. 

Е: Меньше СНЕ если с< если с > й 

ЗЕБ: Меньше или равно с.ГЕ.4 если с<а если с>4 

ВО. Равно с.ЕО.4 если с = й если с = 

.МЕ. Не равно с.МЕ.а если с = й если с = 

ат: Больше с.ат.а если с>а если с <4 

СЕ: Больше или равно с.СЕ.а если с> если с< 4 


Таблица 11 
Допустимые сочетания операндов операций отношения 


Тип правого операнда 


Тип левого операнда 


„| Повышенной 
Целый Вещественный т Комплексный 
Целый -- — — 25 
Вещественный — + + — 
Повышенной точности — + + 28 
Комплексный — — == = 


В табл. 11 знаком -- отмечены допустимые комбинации типов ариф- 
метических выражений (операндов), связываемых операциями отно- 
шения. 
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Ниже приведены примеры допустимых и недопустимых записей 
отношений: 


Допустимые Недопустимые 
ХОРО? Х.ЕТ.К 
А:ВТЕ.С ГС 
А/В —р»о2 ТЕ.0.0 М.МЕ.О 
Х.СТ.5.3 АГ.ЕО.1 


Примеры отношений: 

1. Отношение у < 2х | 1 на ФОРТРАНе записывается в виде: 
Ү.ГЕ.2.*Х+1.0, и принимает значение ТВОЕ. для всех пар (Х,У), 
для которых выполняется указанное неравенство; при геометриче- 
ской интерпретации на плоскости такими парами являются коорди- 
наты всех точек, лежащих на прямой у = 2х -- | и ниже ее. 

2. Отношение х >> 0, записываемое на ФОРТРАНе в виде: 
Х.СТ.0., выполняется для точек правой полуплоскости, исключая 
ось Ү, 

3. Отношение 1? = х (на ФОРТРАНе — Ү**2.Е0.Х) принимает 
значение .ТКОЕ. только для точек, которые лежат на параболе у? = х. 


З адание. Перечислите операции отношения, принятые в 
ФОРТРАНе. 


Порция 27 
Логические выражения (продолжение) 


Правила записи логических выражений 


Правило 1. Для указания необходимой последовательности вы- 
полнения операций в логическом выражении можно употреблять 
скобки. Допускается использование лишних скобок. 


Например: 
((В—2.15)**2).ГТ.(В-НС)*2.0 


Правило 2. Внутри скобок, а также если скобки вообще отсутст- 
вуют, операции выполняются в следующем порядке: 
1) арифметические операции в последовательности: 
вычисление значений функций, 
возведение в степень, 
умножение и деление, 
сложение и вычитание; 
2) операции отношений; 
3) логические операции в последовательности: 


„МОТ. 


2* 35 


Правило 3. Логические операции могут использоваться только 
с логическими выражениями. 

Два символа логических операций не могут стоять рядом. Исклю- 
чение составляют последовательности операций .ОЮ. (МОТ. и .АМ№Р”. 
.МОТ. Пусть переменные ОСІ и ГОС? описаны спецификатором 
ГОС!САГ; тогда следующие выражения являются логическими: 

(А-З.14)*С.ГТ.В--С.ОВ.Р.ВЕ.О--В.АМО.Г.О61 

ІОСІ.ОК..МОТ.ІОС2.АМР”.Х.ЕО.0.0 

Порядок выполнения действия в этих выражениях для наглядности 
можно указать с помощью скобок: 

(((А--3.14)*С) ІТ.(В--С)).ОК .(Р.СЕ.(0--В).АМ”. 1081) 

ГОСІ.ОК.((.МОТ.ІОС?).АМ”.(Х.ЕФ.0.0)) 


Задание. Обозначьте скобками порядок выполнения действий 


в следующем логическом выражении: 
Х**2.8Е (А —С)**3.АМРО.В*Х.ЕО.2.75+*Х**9 


Порция 28 
Логические выражения (продолжение) 


Рассмотрим примеры использования логических выражений в 
языке ФОРТРАН. 

Пример 1: 

Определим на плоскости ХОҮ область, содержащую все те и только 
те точки (Х, Ү), в которых логическое выражение 


Х++2-|- Уж2.СТ.1.0.ОВ.(Х.СЕ.0.0.АМО.У ТВ.О.0) 


принимает значение .ТВОЕ.. 
Укажем порядок выполнения операций в заданном выражении. 
1. Вычисление значения арифметического выражения Х**24-ү**92 
2. Вычисление значений истинности отношений 


О 
Х.СЕ.0.0 
Ү8Е:0:0 


З. Вычисление истинности выражения (Х.СЕ.0.0.АМ№Р”.Ү.1Е.0.0) 

4. Вычисление истинности заданного выражения. 

Первому из отношений, приведенных в п. 2, удовлетворяют точки, 
лежащие вне круга единичного радиуса с центром в начале координат, 
исключая точки его границы. 


Второму из них удовлетворяют точки правой полуплоскости ХОҮ, 


включая ось ОУ. 
Третьему — точки нижней полуплоскости, включая ось ОХ. 
Согласно определению логической операции конъюнкции (Л) вы- 
ражение, приведенное в п. 3, будет истинно для всех тех и только тех 
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дон овен ^^ 


точек (Х, У), которые принадлежат одновременно правой полуплоско- 
сти и нижней полуплоскости ХОҮ, т. е. для всех точек, принадлежа- 
щих правой нижней четверти плоскости (ІУ квадранту) ХОҮ, включая 
ее границы. | 

Искомая область изображена на рис. 2 (область заштрихована); 
граничные точки области, лежащие на осях координат, принадлежат 
этой области, а лежащие на окружности не принадлежат ей. 


у 


Рис. 2 Рис. 3 Рис. 4 


Примечание. Следует обратить внимание на неединственность опи- 
сания области с помощью логического выражения. Так, выражение 


МОТ .(Х ІТ.0.0.ОК.Ү.ОТ.0.0.). ОВ.Хь2 гҮ» СЕ.1.0 
ИЛИ в 
-МОТ.(Х.ГТ.0.0.ОКВ.У.СТ.О.0).ОВ..МОТ.(Х += --У «+2 1Т.1.0) 


описывают ту же область, что и заданное в примере | выражение. 
Пример 2. 
Рассмотрим логическое выражение 


Хе -- У.Е О. 1 .0.ОК.(Х.СТ.0.0.АМО.У ТЕ.0.0) 
представляющее собой дизъюнкцию двух компонент: 
Хь+2-- У+»2.Е 0.1.0 и (Х.СТ.0.0.АМ№О.Ү1Е.0.0) 


Не трудно убедиться в том, что область, состоящая из всех тех и 
только тех точек, для координат которых заданное выражение прини-. 
мает значение .ТКОЕ., является областью, изображенной на рис. 3 
и включающей точки единичной окружности, но не включающей гра- 
ничные точки, принадлежащие координатным осям. . 

Задание. 1. На рис. 4 заштрихована область, ограниченная 
прямой У = Х и параболой У? = Х. Составьте логическое выраже- 
ние, принимающее значение .ТКОЕ. во всех тех и только тех точках 
плоскости ХОҮ, которые принадлежат заштрихованной области, 
включая ее границы. | 

2. На рис. 5 заштрихована область, границами которой являются 
ось ‘ОХ ‘и парабола У = — Х?, Составьте логическое выражение, 
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принимающее значение .ТКОЕ. во всех точках этой области, включая 
криволинейную границу и исключая границу, лежащую на оси ОХ. 

3. На каждом из рис. 6—8 изображена некоторая (заштрихован- 
ная) область. Определите, какие из этих областей состоят из тех и 
уд 


1] 
|1 


4 


Рис. 5 Рис. 6 Рис. 7 Рис. 8 


только тех точек, для координат которых заданные выражения при- 
нимают истинные значения: 


а), (Х**2-=- 072 СЕ. 10:А0р ХІТ .0..АМ.У.СТ.0):0В. 
(092 У+*2. В01..АМЬ. (№ СТ.00.ОВ .У.Г.Т.0:0)) 

б) Х**2--У**2ЪЕ ЦФОВ.Х.ОЕ.00.08. У. БОЮ 

в) МОЕ т 211.10:0 Т.0.0).0В.Х.ЕС.0.0 


Порция 29 
‚ Элементарные функции 


В ФОРТРАНе предусматривается возможность использования не- 
которых элементарных функций, таких как 

ЗПМ(А) — синус, аргумент А вещественный в радианах, 

СО5(А) — косинус, аргумент А вещественный в радианах, 

АГОС(А) — натуральный логарифм, аргумент А вещественный, 

ЗОКТ(А) — квадратный корень, аргумент А вещественный, 


АВ$(А) — абсолютное значение, —— —»— —»—, 
АТАМ(А) — арктангенс, м —— —9—, 
ЕХР(А) — экспонента, А 9—5 


Если, например, нам нужно записать квадратный корень из 
(02 — 406), то мы просто напишем: 


ЅОВТ(В»2—4.+А»:С) 


Аргумент указанных функций может быть любым арифметическим 
выражением с тем ограничением, что этот аргумент должен быть ве- 
щественного типа. Значение функции тоже будет величиной вещест- 
венного типа. 
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Важно помнить, что аргумент функций всегда должен быть заклю- 
чен в скобки, даже в том случае, когда он выражен одной буквой. 
Например, ѕіп х на ФОРТРАНе следует записать в виде: 51М№(Х). 

Задание. Запишите на ФОРТРАНе следующие выражения: 


а) Иа? 4- Иа 6 
б) соѕо -- ѕіп а 


ИТОГОВОЕ ЗАДАНИЕ 


1. Запишите приведенные ниже числа в виде констант: 
а) в форме Е 

б) в форме Е 

в) в форме ГЮ (констант повышенной точности) 

г) в форме текстовых констант 


1) 0,178345; 2) 78,2537; 3) 1832; 4) 65921; 5) 3421 

2. Представьте следующие комплексные числа в виде комплексных 
констант ФОРТРАНа: ў 

1) 27321 — 1321897; 2) 27321; 3) — 1321897. 


3. Какие из приведенных ниже записей можно рассматривать как 
идентификаторы: 


1) 7503У; 2) ОУ735; .3) 0753У12; 
4) ОУ; 5) СИЛА; 6) С13; 
7) СКОРОСТЬ; 8) 8А; 9) 2Х5. 


4. Представьте в виде арифметических выражений на ФОРТРАНе 
следующие выражения: 


2 1—2 =. 26) 12 х — у + 7,3х — 8—23; . 
Де | т Да: Г сова; 

3) (х — 0) ѕіпх + (х 4-03) шх За’- я + Их ај}; 

4) т = Е 5) ЗИ х; 9) к + 367% + 15,48; 


г 


7 8989 —*\? я —*\3 ЕЕ 
5 (= > 2 ): 10) Уа шх ИГ? 
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5. Представьте в виде логических выражений на ФОРТРАНе сле- 
дующие высказывания: . 

Пат 1 Уефаыз 

ел 0 

3) зпх < созх <! 


0029—33 = ОМи- Оле 2 

5) [м —а| + | —а| + |ж—а|<в 
6 (аб удлЛа\сл (Педа 
7) 5" — 406 > 0 Л с> 0 Уа<ь 


6. На каждом из рис. 9—11 изображена некоторая (заштрихован- 
ная) область. Определите, какие из этих областей состоят из тех и 


у 


Рис. 9 Рис. 10 Рис. 11 Рис.12 


только тех точек, для координат которых заданные выражения при- 
нимают значение .ТВОЕ.. 

а) (Хаж2-- Ужж2.ГЕ.1..АМО.У»2.Е.Х).ОВ.Хж-- У» 2.ЕО.1. 
.ОВ.У+2.ЕО.Х 

б) .МОТ.(Х»=2-- У*«2.ГЕ.1.).АМО.Х.ГЕ.0.0.АМО.У.СТ.:0 

в) .МОТ.(У.ГЕ.(—Х+*2).ОВ.У.СЕ.0.0).ОВ.Х.ЕО.0.0 

7. Составьте логическое выражение на ФОРТРАНе, принимающее 
значение ТВОЕ. во всех точках заштрихованной области, изображен- 
ной на рис. 12 и включающей свои граничные точки. 


Глава И 
Операторы языка ФОРТРАН . 


Порция 30 
Оператор присвоения 


Элементы языка ФОРТРАН, о которых шла речь в главе І, исполь- 
зуются при составлении операторов, из которых строятся исходные 
программы. Одной из наиболее употребительных групп операторов 
ФОРТРАНа являются операторы присвоения, с помощью которых 
вычисляются новые значения переменных. 

Знак «=» используется в ФОРТРАНе для обозначения операции 
присвоения и истолковывается не так, как в элементарной алгебре. 

Рассмотрим, например, запись: 


К=К-1 


В алгебре эта запись не имеет смысла. Действительно, если К 
имеет значение, равное 2, то получается равенство 2 = 2 + 1, т. е. 
2 = 3. 

В алгебре обычно знак «=» означает «равняется» и, следовательно, 
все то, что стоит слева от этого знака, должно иметь то же числовое 
значение, что и справа. | 

В языке ФОРТРАН знак «=» имеет следующее значение: вычислить- 
значение выражения, стоящего в правой части оператора, и заменить 
им прежнее значение переменной, стоящей в левой части. 

Таким образом, оператор А = В + С — это предписание вычис- 
лить сумму значений переменных В и Си заменить прежнее значение 
` переменной А. Оператор К = К -- 1 — это предписание увеличить · 
значение переменной К на единицу. 

Когда мы говорим: «значение переменной В», то мы имеем в виду 
последнее значение, которое было присвоено переменной В перед 
началом действия данного оператора. | 

В приведенном ниже примере представлены последовательно рас- 
положенные в программе операторы 


М=3 


После того, как вычислительная машина выполнит эти операторы, 
переменной М будет присвоено значение 20. Посмотрите, как это 
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происходит: вначале М присваивается числовое значение 3, т.е. в ячей- 
ку вычислительной машины, отведенную для переменной М, записы- 
вается число 3. Выполнение второго оператора означает следующее: 
Значение, присвоенное переменной М, умножается на 2 и к получен- 
ному результату прибавляется число 14. 

а результат 20 становится новым значением М, за- 
меняющим первоначальное значение 3. ЧЕ" 

Таким образом, если идентификатор какой-либо переменной встре- 
чается и в левой и в правой частях оператора присвоения, то к момен- 
ту выполнения данного оператора этой переменной уже должно быть 
присвоено некоторое «старое» значение, которое и используется прн 
вычислении значения выражения, составляющего правую часть опе- 
ратора; вычисленное значение правой части присваивается идентифи- 
катору переменной, составляющему левую часть оператора, т. е. 
становится «новым» значением этой переменной. р 

Задание, Считая, что приведенные ниже операторы выпол- 
няются в указанном порядке, вычислите значение, которое будет при- 
своено переменной Ү после выполнения всей последовательности опе- 
раторов: 


АО 

В = —30 

С == 

2 =. 

У = А+Х+24-Вғ*Х +С 
У = 


Порция 31 
Оператор присвоения (продолжение) 
В задаче приводится последовательность арифметических опера- 


торов, которые выполняются в указанном порядке. Выполняя первый 
оператор, А = 2.0, машина присвоит переменной А значение 2.0. 


Таким же образом следующие три оператора присвоят новые значения . 


переменным В, Си Х 


Значение Х после выполнения указанных в примере команд равно 
2:0} 


Выполняя последний оператор 
У=А»Х «2 В+ Х С, 
машина произведет все указанные в выражении операции над только 
что полученными значениями переменных. Выражение вычисляется 
в следующем порядке: Х*+2 (результат 4.0); А»4.0 (результат 8.0); 
В»Х (результат — 6.0); 8.0--(—6.0)--(—2.0) (результат 0.0). Затем 
значение 0.0, полученное при вычислении выражения, присваивается" 
переменной Ү. При выполнении оператора присвоения меняется толь- 
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а. об т изени 


ко значение переменной, стоящей в левой части. Все переменные, 
входящие в правую часть оператора, сохраняют прежнее значение. 

Задание. Вычислите значение Х, выполняя следующую после- 
довательность операторов: 


В = 3.7 
В =2.0 
О 
Х = А-.В-РВ«В-РА*В 
24 = 


Порция 32 
Оператор присвоения (продолжение) 


Арифметический оператор присвоения 


В ФОРТРАНе имеется три типа операторов присвоения: арифме- . 
тический, логический и оператор присвоения метки. 

Ниже описаны правила записи арифметических операторов при- 
своения. р 

1. Левая часть арифметического оператора присвоения ФОРТРАНа 
(слева от знака «=») должна быть идентификатором переменной (про- 
стой или с индексами) одного из допустимых в языке числовых типов 
и не может быть никаким другим выражением или идентификатором 
массива. Левая часть арифметического оператора присвоения не может 
содержать знаков операций и не может быть константой. Поэтому за- 
запись 


Х=АМ--В--С2 


представляет собой синтаксически правильный оператор присвоения, 
а записи вида 


Х—АМ=Вв-- С? 
24.1 =А—САММА 


на языке ФОРТРАН бессмысленны. 

2. При записи выражений в правой части арифметического опера- 
тора присвоения должны соблюдаться общие правила построения ариф- 
метических выражений (см. порции 21—23). 

3. Тип переменной, стоящей в левой части оператора присвоения, 
может отличаться от типа, определяемого выражением, стоящим в 
правой части оператора. В этом случае вычисление значения выра- 
жения производят по правилам арифметики того типа данных, из 
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которых состоит выражение, но результат вычислений будет преобра- 
зован согласно типу переменной левой части перед присвоением полу- 
ченного значения этой переменной. Это свойство оператора присвое- 
ния может быть использовано в ФОРТРАНе для преобразования типа 
`величин. 

Рассмотрим несколько примеров, поясняющих это положение. 


К=з 
А=3*К- 4 


Выражение в правой части последнего оператора имеет значение 
13 (целое). Но так как А является вещественной переменной, то полу- 
ченный результат будет преобразован и представлен вычислительной 
машиной как 13.0. 

Следующий пример: 


А=5.6 
А=3.0*+А-- 9.3 


Как нетрудно проверить, значение А после проведенных вычисле- 
ний будет равняться 26.1. Теперь предположим, что у нас имеются 
следующие операторы вместо рассмотренных выше: 


А=5:6 
К=3.0+А- 9.3 


На первый взгляд может показаться, что К = 26.1. Однако это 
не так, поскольку К является целой переменной и принимает значе- 
ние целой части полученного числа. Заметим, что здесь не произ- 
водится округление; дробная часть перед присвоением отбрасыва- 
ется. | 

Таким образом, если значение выражения окажется равным, ска- 
жем, числу 28.99, то переменной К будет присвоено все-таки 28, а 
не 29. 

Возможностью преобразования данных целого типа в веществен- 
ные и обратно при выполнении операторов присвоения приходится 
пользоваться довольно редко, но в случае необходимости она создает 
ощутимые удобства. 

Задание. Дана следующая последовательность операторов: 


А=12.4 
В=2.0+А-- А/2.0 
К=АғВ—В/А 


Вычислите и запишите значение К 


К= 


а 


Порция 33 
Правила записи 
арифметических операторов присвоения 
(продолжение) 


При необходимости для облегчения чтения, сокращения записи 
и времени выполнения исходной программы можно вводить проме- 
жуточные переменные. Например, требуется вычислить значение Х 


по формуле: 


| —6 + У — дас 
М = аеаасаыааЕ 
2а 


Оператор для вычисления х можно записать в виде: 
Х=(-В--5ОВТ(В==2—4.+А+С))/(2.+А) 


Таблица 12 
| 


Оператор присвоения Исходная формула 


Наана ае 


Их 


| 1 
0 = (М (1./Х) + 60$ (1./Х))(1,/Х) и = (т + со Э 
Е = ЅОАТ (005 (Х)) — С0$ (3.*Х)«(1./3.) Го) = У оов х — у ооз Зх 
ЕІ = ЕХР (1./5.) + ЕХР (Х/4.) РІ (0) ИЕ + М. 
С = (Аз (1./АМ) + В»а(1./АМ№))у. Б саа 8 
У = (1. + Х*=2)+ ((51№ (Х)/008 (Х))а9) аи 
У1 = (1.-- Х+=2) (9. +1Ҹ (Х)/СОЅ(Х)) оу = (1-Е х2)214% 

1 

О = 00$ (А+Х)**(1.(С0$ (АзХ) — 1.) ее а 


Введя промежуточную переменную, мы можем записать необходимые 
действия следующим образом. 


КАРІСІ =ЗОВТ(В++2—4«АжС) 
Х=(—В-+КАРІСІ)/(2.+А) 


В табл. 12 приведены примеры правильно написанных арифмети- 
ческих операторов присвоения и эквивалентные им алгебраические 
равенства в общепринятой форме. Идентификаторы переменных выб. 
раны произвольно. Кроме того, предполагается, что всем переменным, 
встречающимся в правой части операторов присвоения, к моменту 
выполнения операторов присвоены некоторые значения. 
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Каждый оператор табл. 13 содержит по меньшей мере одну ошибку. 


Таблица 13 

- Арифметический оператор присвоения Ошибка 
У =2.Х -- А3 | отсутствует ж (знак умнож.); 
3.14 = (Х — А)/2.+Х слева не может стоять константа; 
В = (В + 8А) (513 (2.*А) нарушено соответствие между скобками, 

отсутствует знак умножения; 
Х = 1, 624, 009 запятые в константах употреблять нельзя; 
—К = (+6 1)++А целую величину нельзя возводить в ве- 


щественную степень, переменная в левой 
части должна быть без знака 


Задание. 1. Определите значение А или [, которые получатся 
в результате выполнения оператора присвоения, и определите также, 
будет ли результат целым или вещественным: 


а) А = 94-3*4 
б) А = 9/5 
в) А = 6.2*9.0 


г) 1 = 12*13/4 

д) 1 = 12*(13/4) 

е) А = (13/4)*2 

ж) А = (13./4.)*2.0 

3) А = 3.0*(1.0Е2/2.0) 

и) А = 3.0*1.0Е2/2.0 

к) [= 2/5 

2. Напишите операторы присвоения, которые производили бы 
следующие действия: 

а) Присвоить переменной С значение корня квадратного из раз- 
ности квадратов значений переменных А и В. 

6) Присвоить переменной Х значение куба разности значений пе- 
ременных Р и Т. 

в) Присвоить переменной Ү значение суммы кубов значений пе- 
ременных Р и Т. | 


Порция 34 
Правила записи 
арифметических операторов присвоения 
(продолжение) 


Задание. Напишите операторы присвоения для вычисления 
значений переменных по следующим формулам. Для наименования 
переменных используйте те буквы и обозначения, которые имеются 
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в формулах: 
Е 
а) 62 = 95. о (л = 3.1416) 


6) И = -1 лЕзН 


с 


в) О = а-п( фа ФВ. Н 


0 
З) ИРЕК а 


д) А=2И +2. ху 


Порция 35 ! 
Логический оператор присвоения 


Логический оператор присвоения выполняет операцию присвоения 
значения логического выражения, стоящего справа от знака «=», ло- 
гической переменной, стоящей слева от этого знака. Формат логиче- 
ского оператора присвоения следующий: 


0 = | 


Здесь о — идентификатор простой или индексированной переменной 
| логического типа; 
1 — логическое выражение. 

„Предположим, что переменные 11, 12, ВІ, В2 и ВЗ описаны в дан- 
ной программной единице спецификатором ГОСТСАТ, (тип остальных 
переменных задан неявно). 

Тогда в этой программной единице могут быть записаны, например, 
следующие логические операторы присвоения: 


В2=11.ОВ. МОТ.В1 | Г 
=(А-+-К—В22--1.1)*С.ТТ.3.0.АМО.В$--2.1.80.15.3-02 
В1= МОТ.ВЗ.АМО..МОТ.1.1.ОВ 1.2 


Выражения в правой части логического оператора присвоения 
должны подчиняться правилам записи логических выражений. На- 
поминаем, что значением логического выражения могут быть только 
логические константы: .ТВОЕ. и .ЕАТЗЕ.. 

В предыдущих порциях мы рассмотрели две разновидности опера- 
торов присвоения: арифметический и логический. Третья разновид- 
ность операторов присвоения — оператор присвоения метки АЗЗТ@М — 
будет рассмотрена в порции 70. 
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Задание. Запишите на языке ФОРТРАН следующие логиче- 
ские выражения: 
а) и< ү у>0 
етих 
и операторы присвоения их значений логическим переменным АТ. 
и ВІ. 


(ИБ: Л =.АМ№О.) 


Порция 36 
Операторы присвоения (продолжение) 


Задание. 1. Написать арифметические операторы присвое- 
ния для вычисления значений по следующим формулам: 

) а= ужу г; 

2) х= а? + 6° — 206 соѕ В; 

3) Р, (х) = а, + х(а, + х (а, + азх)); 


. “— 2,4 
ПОРОЕН ый 
) у х-у 


5 0) == + 21-5 (зая): 


2. Написать операторы присвоения значений следующих выска- 
зываний переменной В логического типа: 


Пир 4 

ИИ — 6х0 

в аи 8—0 

4) а> 6 \/Ус<ала-с>0 

3. В некоторых из приведенных ниже операторов присвоения допу- 
щены ошибки. Укажите их. 

Переменные О, У, № в этих операторах являются логическими, 


идентификаторы остальных встречающихся в них переменных описаны 
неявно: 


1) Ч=У.0В№; 5) Ү=Қәә +0; 


Е. 6) У = В--Ож3; 
3) \У=о-В; 7) К=Хь2 +С; 
4) М=В; 8) У=.МОТ/М.АМО.Ч 
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Порция 37 
Бланк оператора ФОРТРА На 


Число символов, составляющих один оператор ФОРТРАНа, огра- 
ничивается форматом бланка, на котором записываются операторы. 
Писать программы на бланках не обязательно, хотя это существенно 
облегчает чтение программы и ее перфорирование. · | 


Задача К | т 
з | - Идентии- | 
ОПЕРАТОРЫ ФОРТРАНА и фикация 
10 ВОВ ЛЕЕНЕ ЕР 
| ' Е ПЕТЕ ВТ | | | | | | а 
К! Таар М 1 } 
| т т 
п. ата 
Шишо 
ВЕ! ЛОТО А8875 


| 
у 


Рис. 13 


На рис. 13 изображен бланк ФОРТРАНа. 
Каждый оператор ФОРТРАНа записывается на бланке с новой 
строки. В строке бланка пронумеровано 80 позиций. В одной позиции 


4 


о 


ОПЕРАТОРЫ  ФОРТРАНА 


ең 7 2, 7 5 30 40 50 60 70 80 
А =Вх*2 + --]жх. 
ыы 
ТАНОВ А 
шары 
П 1 


Рис. 14 


‚ строки может быть указан только один символ. В записи операторов 
пробелы между символами значения не имеют. Один и тот же оператор 


А=В**2--С—рчо 


на бланке можно записать по-разному (рис. 14). Исключение состав- 
ляют записи текстовых констант, в которых пробелы являются зна- 
чащими символами и вставлять или опускать их нельзя. 

Задание. Сколько символов может быть записано в одной по- 
зиции бланка? 


Порция 38 
Бланк оператора ФОРТРАНа (продолжение) 


Первая колонка 


ФОРТРАН-программа может сопровождаться различного рода ком- 
ментариями, предназначенными, например, для тех или иных поясне- 
ний или сведений. Комментарии можно размещать в любом месте про- 
граммы, однако не внутри операторов, а только между операторами. 

На бланке (рис. 14) первая колонка выделена пунктиром. Буква С, 
записанная в этой позиции, показывает, что вся строка занята ком- 
ментарием. Текст комментария, который может быть записан со 9-й 
колонки, транслятором не воспринимается и может содержать любой 
набор допустимых символов. В одной строке можно поместить текст 
комментария, не превышающий 71-го символа. Если текст коммен- 
тария занимает более 71-го символа, его запись можно продолжить в 
следующих строках, поставив в первой позиции каждой из этих строк 
символ С. Текст комментария перфорируется на картах, размещается 
В памяти и выводится на печать вместе с текстом программы. 
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На рис. 15 приведен пример записи комментария к программе. 
Задание. Каким образом можно указать транслятору, что 
некоторая строка занята комментарием? 


Порция 39 
Бланк оператора ФОРТРАНа (продолжение) 


Колонки меток (1—5) 


Как Вы узнаете из дальнейшего, в некоторых случаях возникает 
необходимость в записи одного оператора упомянуть некоторый дру- 
гой оператор. Это может быть сделано посредством введения наиме- 
нований операторов, называемых в языках программирования метками 
(или, как мы будем иногда говорить, путем присвоения меток опе- 
раторам). Как правило, языки программирования допускают присвое- 
ние меток любым операторам программ. В программах на машинных 


ОПЕРАТОРЫ ФОРТРАНА 


20 30 


УОТА ЕТА 7 ш 
КОЭФФИЦИЕНТЫ У0Х Х 
| аи 


Рис. 15 


языках роль таких меток играют адреса ячеек, в которых размещают- 
ся машинные операторы программы — команды. Поскольку адреса 
машинных ячеек представляют собой упорядоченное множество на- 
туральных чисел, метки машинных операторов всегда упорядочены. 
Каждому. оператору в ФОРТРАН-программе можно присвоить (при- 
писать перед его началом) одну метку. Метки выбираются программи- 
стом произвольно и записываются в 1—5 колонках бланка. Таким об- 
разом, любая метка имеет вид натурального десятичного числа в диа- 
пазоне от 1 до 99 999, т. е. любого пятиразрядного числа, отличного 
от нуля. Оператор, имеющий метку, называется помеченным. 

Правила присвоения меток. 

Правило 1. Оператору можно присвоить только одну метку. 

Правило 2. Две метки, отличающиеся ведущими нулями (т. е. ну- 
лями, записанными слева от первой, отличной от нуля цифры), счи- 
таются одинаковыми. Например, метки 01, 0001, 1 — одинаковы. 
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Правило 3. Два оператора в одной программной единице не могут 
‚иметь одинаковые метки. 

Правило 4. Упорядоченности присваиваемых меток не требуется. 

На рис. 16 изображен фрагмент программы, иллюстрирующий пра- 
вила присвоения меток операторам. 

В примере а) операторы, записанные во второй и четвертой строке, 
не имеют меток, и после оператора с меткой 21 они будут выполнены 
в том же порядке, в котором они записаны в программе. Однако, как 
мы увидим далее, наличие меток 15 и 6 у операторов, записанных 
в третьей и пятой строках, позволяют так составить программу, что при 
необходимости может быть начато выполнение оператора с меткой 15 
(а первые два оператора будут пропущены) или с оператора с меткой 6 
(а первые четыре будут пропущены). 


ооны 
а 


2 = Ож(А+В) х7 


НИНЕ 
Л 


Рис. 16 


Пример б) иллюстрирует ошибку в присвоении меток: два опера- 
тора в одной программной единице не могут иметь одинаковые метки. 
Задание. Запишите на бланке ФОРТРАНа следующий опе- 


ратор: 
2 Ко 


Порция 40 
Бланк оператора ФОРТРАНа (продолжение) 


Признак продолжения оператора 


Если оператор состоит из большого числа символов и не помеща- 
ется на одной строке бланка, то в следующей строке в 6-ю колонку 
помещается символ продолжения, которым является любой символ, 
отличный от, уи 0, например цифра 2, и далее на строке продолжается 
‚запись оператора. : Ы 
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Таким образом, шестая колонка на бланке является колонкой про- 
должения. Если имеется необходимость еще в одной строке, то ее так- 
же разрешается использовать, поставив в ней, в колонке 6, некоторый 
символ, отличный от, уи 0. В ФОРТРАНе разрешаются операторы, 
которые могут занимать до 20 строк. Заметим, что метка оператора 
ставится только перед его первой строкой (не имеющей символа про- 
должения). Таким образом, между меткой и оператором на бланке 
остается один пед (в шестой позиции) или несколько. 

Задание. Как обозначается продолжение рн при 
записи оператора ОА 

2. Запишите на бланке оператора ФОРТРАНа следующий опе- 


ратор: 
10 АГРНА=САММА**3*РЕГ.ТА**3-- РЕТТА/САММА- (САММА + 
-- ОЕТТА)/(САММА*РЕГТА)—5ОВТ(САММА*ОЕТТА) 


_ Порция 41 | 
Бланк оператора ФОРТРАНа (продолжение) 


Позиции для записи операторов 


Для представления оператора ФОРТРАНа выделяются 66 пози- 
ций — с 7-й по 72-ю включительно. Поскольку выше было указано, 
что для любого оператора ФОРТРАНа может быть использовано до 
двадцати строк, то отсюда следует, что оператор ФОРТРАНа может 
содержать до 20 х 66 = 1320 символов. 

Напоминаем, что при записи оператора ФОРТРАНа в каждой 
позиции бланка может быть записан только один символ. Под симво- 
лом понимается одна цифра от 0 до 9, любая заглавная буква от А. 
до 7 или любой специальный символ. "Десятичная точка «.» рассмат- 
ривается как один символ, и поэтому такое число, как, например, 29., 
будет занимать три, а не две позиции. 

Аналогично одна позиция выделяется и для записи каждой скобки. 

Задание, Запишите на бланке ФОРТРАНа следующие опера- 
торы: 


К = 25.3 
$ = 2.*В**2—42.0*6*+3/2.0 


Порция 42 
Бланк оператора ФОРТРАНа (продолжение) 
Позиции с 73 по 80 включительно 


Эти позиции могут использоваться при идентификации отдельной 
перфокарты или программы. Информация, помещаемая в этих пози- 
циях, транслятором игнорируется. Поэтому они могут использоваться 
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программистом для нумерации перфокарт, необходимой, например, 
в больших программах для обеспечения правильного. расположения 
перфокарт перед вводом их содержимого в запоминающее устройство 
ЭВМ. 


В большинстве случаев эти колонки будут оставаться пустыми, 
поскольку совсем необязательно в них что-либо помещать. 

В дальнейшем при записи операторов, фрагментов и программных 
единиц на ФОРТРАНе будет подразумеваться, что метки, символы 
продолжения и текст операторов записаны в надлежащих позициях. 

Задание. Для какой цели используются колонки 73—80? _ 


Порция 43 
Оператор ВЕАР 


Все исходные данные — начальные значения переменных, необхо- 
димые для выполнения данной программы, можно задать непосред- 


А=3.0 
Вы=9.5 
С=1.0 


Но в таком случае программа может быть использована только 
для задачи с этим конкретным набором исходных данных. Такие слу- 


Машина может считывать исходные данные в процессе выполнения 
программы, поэтому программу обычно составляют так, чтобы ее мож- 
но было использовать столько раз для различных исходных данных, 
сколько необходимо, вводя каждый раз их новые наборы. Набор ис- 
ходных данных заносится на некоторый внешний носитель, например, 
на перфокарты, а указание ввести эти Данные в память дается в про- 
грамме с помощью оператора ВЕАР. 

Формат оператора ВЕАР следующий: 


КЕАР (№,,2,) (список) 


КЕАР” (№, №) 


Здесь Ё, — целая положительная константа, обозначающая символи- 
ческий номер устройства, с которого вводятся данные (устройства 
ввода условно нумеруются), или идентификатор целой переменной, 
значение которой определяет номер устройства; 

К, — метка оператора РОКМАТ, содержащего информацию о спо- 
<обе ввода данных, или идентификатор массива (смысл оператора 


ИЛИ 
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РОКМАТ и назначение идентификатора массива в операторе ВЕАЮ 
будут объяснены далее). 

Названные объекты в скобках разделяются запятыми. 

Введем понятие списка. Список — это конечная последовательность 
однородных объектов, называемых элементами списка, содержащая 
хотя бы один такой объект. Списки элементов, используемых в языке 
ФОРТРАН, разделяются друг от друга запятой. Количество элемен- 
тов в списках операторов ФОРТРАНа произвольно. Единственным 
ограничением на операторы, содержащие списки, является общее огра- 
ничение на длину операторов в ФОРТРАНЬЕ, т. е. 1320 символов. 

В операторе КЕАО элементами списка могут быть идентификаторы 
переменных, переменных с индексами или массивов. 

Приведенные выше первые три оператора присвоения могут быть 
заменены (при надлежаще подготовленных на устройстве ввода с но- 
мером 2 данных и при наличии в той же программной единице соот- 
ветствующего оператора ЕОКМАТ) оператором: 


КЕАР(°,1)А,В,С 


Переменные в списке оператора ВЕАР могут быть любого типа. 
Более того, в одном операторе могут быть названы переменные не- 
скольких типов. Например: 


ВЕАР(2,1)А,В,К,.Г(1)С,М(4) 


Значения переменных, отперфорированные на перфокарте, должны 
располагаться в той же последовательности, в какой их наименования 
перечислены в операторе КЕАР”. Таким образом, процесс ввода проис- 
ходит в следующем порядке: первое значение с перфокарты присваи- 
вается первой переменной, второе значение присваивается второй 
переменной и т. д., пока не будет исчерпан список переменных. По- 
следовательный перебор идет слева направо, так что первой перемен- 
ной будет присвоено значение, отперфорированное в левом краю пер- 
фокарты с данными. 

На одной перфокарте не могут быть отперфорированы данные, 
предназначенные для чтения двумя операторами ВЕЛО, ‘поскольку 
при завершении выполнения оператора КЕАР перфокарта, с которой 
был прочитан хотя бы один символ, сбрасывается в колоду прочи- 
танных карт. Для каждого оператора ВЕАР должны быть свои пер- 
фокарты либо перфокарта. Следовательно, при вводе данных с перфо- 
карт оператор КЕАР всегда означает чтение с новой перфокарты. Если, 
например, на одной перфокарте отперфорировано шесть данных, 
то их нельзя ввести в машину с помощью двух операторов ВЕАР, 
перечислив переменные так, чтобы второй оператор начал ввод с того 
места, где первый остановился. Единственный способ ввести шесть 
данных с одной перфокарты — это написать один оператор ВЕАр 
и перечислить в нем все шесть переменных. 
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Предположим, что за устройством ввода с перфокарт закреплен 
номер 2, тогда, если нам надо записать оператор считывания с одной 
перфокарты трех данных, значения которых необходимо присвоить 
переменным АГРНА, ВЕТА, САММА, то запишем: 


КЕАР(2,3)АТРНА, ВЕТА, САММА 


Задание. Запишите оператор считывания с перфокарт зна- 
чений, которые необходимо присвоить переменным Х, У, 2, №. 


Порция 44 
Оператор МВІТЕ 


Оператор \МКТЕ работает аналогично оператору КЕАР. Если 
использование. оператора КЕАР обеспечивает возможность ввода 
исходных данных в память ЭВМ, то применение оператора \/ЮТЕ 
позволяет осуществлять вывод значений переменных — результатов 
вычислений или вспомогательной информации из памяти машины на 
устройство вывода, номер которого указан в данном операторе. 

Формат оператора МВІТЕ следующий: 


| №МКІТЕ(А,, А,) (список) 
ИЛИ 
У\ЕТЕ(А,, 2,) 


К; — целая положительная константа, обозначающая номер устрой- 
ства, на которое выводятся данные, или идентификатор целой перемен- 
ной, значение которой определяет номер необходимого устройства 
ввода-вывода; 

К, — метка оператора ЕОВМАТ, содержащего информацию о спо- 
собе вывода данных, или идентификатор массива; 

(список) — список идентификаторов переменных, переменных с 
индексами или массивов, значения которых нужно вывести. 

Рассмотрим пример записи оператора МВІТЕ. 

Предположим, что за алфавитно-цифровым печатающим устройст- 
вом (АЦПУ) закреплен номер 1. Тогда оператор выдачи на печать 
значений переменных А, В, С будет иметь вид: 


\ЕТТЕ(1,5)А,В,С 


Напоминаем еще раз, что наличие скобок и запятых между объектами, 
указанными в скобках, и элементами списка обязательно. 
Операторы ВЕАР и МВІТЕ несут информацию, связанную с про- 
цессом ввода и вывода: 
1. Относится ли операция к вводу (КЕАР) или выводу (МБКІТЕ). 
2. Какой носитель информации используется при выполнении опе- 
раторов ввода-вывода (это определяется номером устройства ввода- 
вывода). · ТО 


3. Какие переменные должны получить новые значения или зна- 
чения каких переменных надо вывести (это определяется списком пе- 
ременных в операторе КЕАР или МВІТЕ). 

4. В каком порядке должны быть расположены значения на пер- 
фокарте или будут расположены ‘при выводе (это определяется по- 
рядком перечисления переменных в списке соответствующих опера- 
торов КЕАР или МРІТЕ). 

Задание. Запишите следующие операторы на языке ФОРТ- 
РАН: 

а) Ввести значения переменных А, ВИС. 0. 

6) Напечатать значения переменных ОМ, ЕАКАО, АМРЕВ. 

в) Ввести значения переменных Ј, К, 1, М, М. 

г) Напечатать значения переменных Х, У, 1. 


Порция 45. 
Оператор ЕОВМАТ 


В предыдущих порциях мы изучили назначение операторов ВЕАР 
и МКІТЕ и рассмотрели, какую информацию относительно ввода и 
вывода они несут. Прочтите еще раз материал этих порций, если Вы 
забыли это, так как далее перейдем к изучению операторов ҒОВ МАТ, 
используемых совместно с операторами ВКЕА”Р и МВІТЕ. 

Для выполнения операций ввода и вывода недостаточно информа- 
ции, задаваемой операторами КЕАР и МБІТЕ. Необходима еще ин- 
формация о том, в каком формате отперфорированы или должны быть 
выведены, в частности, отпечатаны данные. Сколько колонок на пер- 
фокарте занимает каждая вводимая величина? Сколько знаков за- 
ймет каждая выводимая величина при выводе на перфокарты или при 
печати? Каков тип вводимых и выводимых данных (целый, вещест- 
венный, комплексный, логический или текстовой). 

Эти сведения о внешнем представлении данных содержатся в опе- 
раторах ЕОКМАТ. Оператор ЕОКМАТ относится к невыполняемым 
операторам и является среди этого класса единственным оператором, 
который в любом случае должен быть помечен. Операторы -ЕОВМАТ 
используются при выполнении тех операторов ВЕАР и \УЮТЕ, 
в скобках которых после запятой стоят их метки. Порядок исполь- 
зования операторов ЕОКМАТ следующий. Вспомним, как записы- 
ваются операторы ВЕАР и МРІТЕ. 

Например: 

КЕАр(2,3) А, В, С 
МКІТЕ(1,5) А, В, С 


Первые константы в скобках являются символическими номерами 
устройств ввода-вывода, а вторые — 3 в операторе КЕА” и 5 в опера- 
торе МКІТЕ — метками соответствующих операторов ЕОЮМАТ. 
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_ В операторе РОКМАТ указываются форматы полей для каждой 
переменной из соответствующего списка, помещенного в операторах 
КЕАРЮ и МБІТЕ. При этом полем называется последовательность 


(группа) колонок на перфокарте или позиций для печати на бумаж- * 


ной ленте. 
Ниже приведены примеры записи операторов ВЕАР и \УЮТЕ 
и связанных с ними операторов ЕОВМАТ: 
‚ ВКЕАЮ. ЭК. С 
3 РОВМАТ(Е1О.3, 15,Е6.0) 
\М/ВТТЕ(1,5) А, В, С 
5 РОКМАТ(Е20.8, Е20.8, Е20.8) 

В приведенных примерах форматов буквы І, Е и Е определяют 
тип формата; при этом буква І используется для описания данных 
целого типа, а буквы Е и Е для вещественного в форме с фиксирован- 
ной и плавающей запятой соответственно. Целое, стоящее после бук- 
вы І, обозначает общее число позиций в поле, предназначенном для 
размещения значения данного, включая позицию для знака. Целое, 
стоящее между буквами Е и Е и точкой в форматах Еи Е, как и в фор- 
мате І, обозначает общее число позиций, отводимое для размещения 
числа, включая его знак, десятичную точку, символ Е, знак порядка 
и две цифры порядка, а целое, стоящее после точки, обозначает число 
позиций, отводимых для дробной части числа. 

Задание. Какую информацию несет оператор РОВ МАТ? 


Порция 46 
Правила записи оператора РОКМАТ 
В этой порции будут изложены правила записи оператора ЕОВ- 


МАТ, которые необходимо соблюдать при организации ввода исход- 
. ных данных и выдачи результатов работы программы. 


Правило 1. Следующие за служебным словом ЕОВМАТ форматы . 


полей переменных заключаются в круглые скобки. Форматы полей 
переменных отделяются друг от друга запятыми или косой: чертой. 
Пример. 
25 ЕОКМАТ(Е10О.0,15/Е 20.8) 


Здесь в операторе ЕОКМАТ указано три формата полей переменных. 

Правило 2. Черта употребляется для указания перехода на новую 
единицу ввода-вывода: новую перфокарту (при вводе) или новую стро- 
ку печати (при выводе). Несколько символов «/» могут стоять рядом, 
это указывает на пропуск соответствующего количества единиц ввода- 
вывода (например, пропуск соответствующего числа строк при выводе 
на печать либо перфокарт при вводе). р 

Пропуск и перфокарт при вводе или п строк при выводе на печать 
достигается простановкой (п - 1) символов «/» в соответствующих 
позициях в списке оператора ЕОКМАТ. 
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Пример. 
РЕАО{2,17)Х УГ, 
17 РОКМАТ(Е10. 6/Е10. 6,15). 


При выполнении данного оператора ВЕАР согласно приведенному 
оператору ЕОКМАТ значение переменной Х будет считано с 1-ой 
перфокарты, а значения переменных У и Г — со 2-ой перфокарты. 
(мы предполагаем при этом, что все используемые в примерах иденти- 
фикаторы являются идентификаторами простых переменных, а не мас- 
сивов). 

Пример. 

КЕАр(2,5)А,В,С,р,Е 
5 РОКМАТ(Е12.3,Е12.3///Е10.0,Е8.0,Е10.2) 

При вводе информации с перфокарт значения переменных А и В 
будут считаны с 1-й перфокарты, 2-я и 3-я перфокарты будут пропу- 
щены и переменным С, О и Е будут присвоены значения, отперфори- 
рованные на 4-й перфокарте. 

Пример. 

МУЕТТЕ(1, 41, КГ. 
4 РОКМАТ(110/110/18) 

В этом примере каждое из значений переменных ГК и І будет 
напечатано с новой строки. 

Правило 3. Перед форматом поля в операторе ЕОКМАТ может 
быть поставлена целая положительная константа, называемая коэф- 
фициентом повторения. Формат такого вида означает последователь- 
ность одинаковых (указанных в нем) форматов, число которых равно 
коэффициенту повторения. В примере 

КЕАр (2,3)А,В,С 
3 ЕОВМАТ(Е10.3,Е10.3,Е6.0) 
оператор ЕОКМАТ можно записать так: 
3 РОВМАТ(2Р10.3,Е6.0) 

Задание. 1. Какие символы используются в качестве раздели- 
телей форматов полей в операторе ЕРОКМАТ? 

2. Как иначе можно записать следующий оператор? 

5 РОКМАТ (16,16,16,16) 


Порция 47 


Правила записи оператора ҒОКМАТ 
(продолжение) 


Правило 4. Операторы РОКМАТ относятся к группе невыпол- 
няемых операторов. Их можно помещать в любом месте той програм- 
мной единицы, в которой встречаются ссылающиеся на них операторы 
ввода-вывода. 
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Правило 5. В операторах ввода-вывода ВЕАР или МВІТЕ долж- 
на. указываться метка сопоставленного им оператора ЕОВМАТ. Один 
и тот же оператор ЕОКМАТ может быть сопоставлен с несколькими 
разными операторами ввода-вывода. “к 

Пример. 

ВЕАО(2,1)К,Т.,М,М 
1 ЕОКМАТ(210,115,120) 
М/КЕГЕ(1,1)КАРРА, МЕ, ПМК, КОМ 


В этом примере один оператор ЕОКМАТ используется для чтения 
с перфокарт значений переменных К, 1, М и М и для вывода значений 
переменных КАРРА, МЕ, ММК, КОМ. 

Задание. Перечислите известные Вам правила записи опера- 
торов ЕОКМАТ. чь. 


Порция 48 
Правила записи оператора ГОВМАТ 


(продолжение) 


Правило 6. Форматы полей в операторе РОК МАТ при выполнении 
соответствующих операторов ввода-вывода считываются последова- 
тельно слева направо и ставятся в соответствие переменным из списка 
операторов ввода-вывода. | 

Пример. . 

М/ВТТЕ(1,3)А,К,С 
3 ЕОВМАТ(Е20.8,15,Е10.0) 


В этом примере переменной А ставится в соответствие формат 
Е20.8, т. е. значение переменной А будет напечатано в формате Е20.8, 
переменной К — формат 15, переменной С — формат Е10.0. 

Если спецификации полей в операторе РОКМАТ исчерпаны, а спи- 
сок переменных в операторе ввода-вывода еще не исчерпан, то автома- 
тически происходит переход на новую единицу ввода-вывода (новую 
перфокарту или новую строку печати) и начинается повторное счи- 
тывание всех форматов, указанных в операторе ЕОВМАТ, слева на- 
право, начиная с первого. Этот процесс будет продолжаться до тех 
пор, пока список переменных в операторе ввода-вывода не будет ис- 
черпан. 

Пример. 

| КЕАО(2,10)А,В,Г.,С,О,М,Е,В,К,а,Н,М 
10 ЕОКМАТ(Е10.0,Е 15.3110). 


При выполнении этих операторов. произойдет следующее: пере- 
менной А будет присвоено первое значение, отперфорированное на 
первой перфокарте с данными в формате Е10.0, переменной В — вто- 
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рое значение, отперфорированное на первой перфокарте в формате 
Е15.3, и переменной Г, — в формате 110 на той же первой перфокарте. 
Затем осуществляется переход на новую ·перфокарту с данными и 
ввод продолжается так: переменной С присваивается первое значение, 
отперфорированное на второй перфокарте с данными в формате 210.0, 
переменной Р — второе значение второй перфокарты с данными, от- 
перфорированное в формате Е15.3, ит. д. 

Если в операторе ЕОКМАТ окажется больше форматов, чем пере- 
менных в списке оператора ввода-вывода, то часть риса. в конце 
оператора просто остается неиспользованной. 

Пример. 

БЕАР(211)А,В 
11 РОКМАТ(Е10.0,Е15.3,17) 


В этом примере используются только форматы Е10.0 и Е15.3 для 
переменных А и В соответственно. 

Поскольку один и тот же оператор ЕОКМАТ может быть сопостав- 
лен нескольким операторам ввода-вывода, неиспользуемые одним та- 
ким оператором ввода-вывода форматы могут быть использованы дру- 
гими. 

Правило 7. Суммарная ширина полей форматов тех переменных, 
значения которых будут размещены на одной единице ввода-вывода, 
должна быть не больше емкости этой единицы (т. е. не более 80 коло- 
нок на перфокарте при вводе и не более длины одной строки на АЦПУ 
при выводе). Например, следующая запись будет ошибочной: 

КЕАр(2,22)А,В,С,р,Е 
22 РОВМАТ(5Е18.3) 


так как число колонок 18 +- 18 -- 18 +- 18 -+ 18 = 90 превышает 80. 
Правило 8. При написании оператора ЕОКМАТ на бланке в .за- 
писи форматов полей и между ними можно оставлять пробелы для удоб- 
ства чтения. Исключение составляет формат Н и текстовые константы, 
где пробелы воспринимаются как значащие символы. 
Задание. Найдите ошибки в записи следующих операторов: 
а) ЕЕАр(2,5) Х, У, К 
5 ЕОВМАТ?Е10.3,16 
6) КЕАО(2,7) КАБ, 113, ГОМО, $0М, ТЕТА, ВМС 
7 ЕОКМАТ(3110, 3Е18.6) 


Порция 49 
Дополнительные приемы построения оператора ЕОВМАТ 
Символ «/» позволяет с помощью одного оператора ЕОКМАТ про- 
читать одну, первую карту, по одному формату и целую группу по- 


следующих — по другому. В этом случае р формат должен быть 
взят в дополнительные скобки. 
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Например, с помощью операторов: 


ЕСЕ бд у 
52 ЕОЕМАТ(15/(4Е1Б.3)) 


будет прочитано с первой карты одно число, занимающее пять коло- 
нок, а со второй, третьей, четвертой и т. д.— по четыре числа, занимаю- 
щих по 15 колонок. Первый формат используется для одной карты, 
второй для всех остальных, до исчерпания списка всех читаемых опе- 
ратором ВЕАР данных. 

Еще один пример: 


ВЕАР(2,3)А1, ВІ, ОМО, СІ, 21, ЕІ, 01, НІ, $1, ТІ, 01, ХІ, ҮІ 
3 РОВМАТ(2Е6.0/110/(2Е20.8)) 


При выполнении этих операторов значения переменных АІ, ВІ будут 
прочитаны с первой карты по формату Еб.0, значение ГОМ@ — со вто- 
рой карты по формату 110 и, наконец, значения остальных переменных 
будут прочитаны с третьей, четвертой и т. д. карт по два значения в 
формате Е20.8 с каждой карты. 

_ Иногда бывает необходимо повторить не один формат, а целую 
группу. Для этого группа форматов заключается в скобки; перед 
скобками, если это необходимо, может быть задан коэффициент пов- 
торения. "Например, операторы: 


\ЕТТЕ(1,5) К, 11, В$, ВТ, ВО, В91, ВТІ, ВИ! 
5 РОВМАТ(214,9(Е9.3,2Е10.0)) . 


обеспечат печать переменных из списка оператора УВЕ по сле- 
дующим форматам: 


Идентификатор Формат поля 

К 14 

01 14 

К Е9.3 

ВТ Е10.0 
ЕО Е10.0 
К51 29.3 
ВТ! Е10.0 
ВОІ Е10.0 


Если бы список оператора МКІТЕ содержал еще три элемента, 
например В$2, ВТ2, 02: 


\/ВТТЕ(1,5) К, М, В$, ВТ, ВО, В51, КТІ, ВОЛІ, Е82, ВТ, ВО, 


то повторение формата для вывода этих трех переменных ОВ Р 
В02 начиналось бы с самой правой открывающей скобки, т. е, зна- 


62 


чения переменных В52, ВТ2, Е02 были бы выведены по форматам: 


Идентификатор Формат поля 
К52 Е9.3 
КТ2 Е10.0 
КО? Е10.0 


Задание. Запишите операторы КЕАР и ЕОВМАТ, необходи- 
мые для ввода значений переменных 


К, 5, т 1, Ј, К, | М, М, ІК, УВ, КВ, 1.5, МК, МЕ 


Полагаем, что значения переменных К, 5 и Т отперфорированы на 
первой перфокарте в формате Е15.3, а значения остальных перемен- 
ных — по З на каждой перфокарте в формате 16. 


Порция 50 


Дополнительные приемы построения оператора ЕОКМАТ 
(продолжение) 


В операторах ЕОВМАТ допускается еще один уровень скобок, 
используемый для ввода-вывода данных. Это позволяет задавать пов- 
торение блоков форматов. Общее правило последовательности исполь- 
зования формата поля можно сформулировать так: сначала просмат- 
риваются все форматы слева направо до конца списка, затем, если 

‚список переменных в соответствующем операторе ввода-вывода не 
исчерпан, начинается повторение форматов с самой правой открываю- 
щей скобки, не считая скобок самого внутреннего уровня, если число 
уровней равно трем. Рассмотрим пример: 


Ио ке Е ро 321 
17 РОКМАТ(14/2(4Р7.1,2(13,Е10.3)),3(213,2(Е9.0,2Е10.3))) 


4 
Уровни скобок обозначены цифрами 1, 2, 3. В случае необходимости 
форматы повторяются с самой левой открывающей скобки уровня 2 
(в записи эта скобка отмечена стрелкой). 

Примечание. В порции 95 будет рассмотрен способ ввода-вывода 
информации, с помощью организации цикла в операторах КЕАР и 
МЕТЕ. 

. Задание. Сколько уровней скобок допустимо в записи опера- 
тора ЕОКМАТ? 


Порция 51 
Представление чисел в памяти ЭВМ 


Особенностью представления данных, обрабатываемых ФОРТ- 
РАН-программой, является выделение для каждого из числовых типов 
полей машинной памяти определенного фиксированного размера. 
В качестве таких полей выбираются поля, обращение к которым 
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наиболее удобно осуществляется в данной конкретной машине. Обычно 
такими полями являются поля отдельных ячеек памяти машины, об- 
ращение к которым возможно посредством указания их адресов. 
Для хранения чисел повышенной точности или комплексных чисел 
при этом может отводиться, например, по две машинные ячейки. Та- 
кое распределение памяти для данных имеет и то преимущество, 
что выполнение арифметических операций над целыми ячейками вы- 
полняется в машинах наиболее эффективно. 

Выделение фиксированных полей для данных накладывает естест- 
венные ограничения на максимальные размеры представляемых в них 
чисел (обычно на максимальные значения их абсолютных величин). 

Разумеется, отдельные конкретные значения какой-либо перемен- 
ной данного типа (или константа) могут представляться числом зна- 
ков, меньшим максимально допустимого размерами отведенного для 
этой переменной поля. В таком случае при размещении числового 
данного свободные позиции заполняются нулями. При этом данные 
целого типа выравниваются к крайнему правому полю, свободными 
оказываются крайние левые позиции. Данные с фиксированной за- 
пятой выравниваются по позиции машинной запятой и свободными 
могут оказаться крайние левые и крайние правые позиции и т. д. 

В связи с фиксацией одинаковых полей для всех отдельных пере- 
менных данного типа при выделении для них памяти нет необходимо- 
сти указывать эти размеры. Необходимость в этом возникает в двух 
случаях: при выделении памяти под массивы и при вводе или выводе 
данных. 

В первом случае, как мы отметили, в ФОРТРАН в массивы объ- 
единяются данные одного итого же типа, в связи с чем, выделяя для 
массива идентификатор, необходимо указать только тип объединяемых 
в массив величин, его размерность и размеры по каждой из размер- 
ностей: число элементов в одномерных массивах — векторах; число 
строк и столбцов для двумерных массивов — матриц; число строк и 
столбцов в матрице и число таких матриц в случае трехмерного мас- 
сива. 

Второй из названных случаев необходимо рассмотреть отдельно. 

Задание. Нужно ли указывать размеры памяти для простых 
переменных? Почему? 


Порция 52 
Форматы данных при вводе-выводе 


Размеры отводимых полей в памяти машины для данных, как мы 
отметили в предыдущей порции, диктуются не только фактическими 
размерами значений этих данных, но и удобствами выполнения над 
ними операций. Поэтому зачастую встречаются данные, значения ко- 
торых занимают фактически лишь часть отводимых для них полей. 
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При подготовке данных на внешних носителях для их ввода в память 
машины (например, на перфокартах) или при выводе данных (напри- 
мер, на бумажную ленту) нет необходимости выделять размеры полей, 
равные полям, занимаемым этими данными в памяти машины. Как пра- 
вило, эти поля могут быть существенно сокращены, что придает боль- 
шую наглядность данным при выводе и позволяет сократить объем 
перфорируемого материала при вводе. 

Язык ФОРТРАН предоставляет широкие возможности для задания 
способов сокращения полей данных на внешних носителях. 


Порция 53 
Формат поля 


В стандарте языка ФОРТРАН имеется девять видов форматов поля. 
Сочетание этих форматов обеспечивает большую гибкость операций 
ввода и вывода. Мы рассмотрим форматы полей в следующем порядке: 

) форматы ввода-вывода числовых данных; 2) форматы ввода-вывода 
символьных данных; 3) форматы ввода-вывода логических данных. 

Однако прежде чем изучать форматы поля, целесообразно сначала 
возвратиться к материалу, который мы изучали в гл. І, а именно: 
необходимо вспомнить о типах данных, допустимых в языке ФОРТ- 
РАН. 

Вы, очевидно, помните, что существует шесть типов констант: 
целые, вещественные, повышенной точности, комплексные, логиче- 
ские и текстовые. 

Поскольку машина должна иметь информацию И О том, какой спо- 
соб представления информации применяется в данный момент, в 
ФОРТРАНе используются различные типы форматов для каждого 
из возможных случаев. 

При этом следует иметь в виду, что форматы ввода-вывода должны 
быть согласованы с типом подлежащих вводу-выводу величин. 

Задание. Допустима ли следующая ‚последовательность опе- 
раторов: 


ВЕАР(,2)1,5,Т. 4 
2 ЕОВМАТ(ЕТ 1,214) 


Порция 54 
Управление печатью 


При составлении формата поля данных, выводимых на печать, 
необходимо иметь в виду, что при выводе вначале формируется строка 
вывода (запись), первый символ которой не выводится, а использу- 
ется лишь для управления печатью, Управление печатью состоит 
в задании вертикального смещения печатаемой строки. В языке 
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ФОРТРАН выделены четыре символа (см. табл. 14), за каждым из ко- 

торых закреплена определенная функция управления печатью; функция 

всех остальных символов как символов управления одинакова. 
Например, формат 


10 ЕОКМАТ(5НЩИКЛ) 


используемый для вывода символьных данных, определяет следующую 
строку вывода: 


ІЦИКЛ 
Первый символ этой строки указывает, что слово ЦИКЛ будет 


напечатано с новой страницы; по формату 11 ҒОКМАТ (5Н—ЦИКЛ) 
это слово будет напечатано на следующей строке вывода. 


Таблица 14 
Символ Действия перед печатью строки 
Пробел ‚| Пропуск одной строки 
0 Пропуск двух строк 
1 Переход на новую страницу 
+ Смещение не выполняется (строка вывода накла- 
дывается на предыдущую) 
Любой другой символ Переход к следующей строке 


Чтобы предотвратить потерю значащих символов при выводе или 
случайное, не предусмотренное программистом, использование в пер- 
вой позиции таких управляющих символов, как 0, 1 или +, ведущее 
к искажению результата, можно использовать формат Х (он будет 
описан далее), задающий при выводе пропуск пробелов. Например, 
при выводе массива по формату 12 ЕОВМАТ (13) старший (третий) 
разряд в десятичном представлении чисел выводиться не будет и. 
кроме того, все числа, содержащие 1 в этом старшем разряде, будут 
напечатаны с новой страницы. Если же использовать для вывода это- 
го массива формат 12 ЕОВМАТ (5Х, 13), то каждое число будет напе- 
чатано без искажения в очередной строке, причем каждому числу бу- 
дет предшествовать 4 пробела, указанные в формате 5Х (первый пробел 
будет использован для управления печатью). 

Задание. Напишите строки, которые будут выведены на пе- 
чать следующими операторами: 


1. . МАТЕСЮК . а) при К=Ш 
1 РОКМАТ(Г5) б) при К=— 1488 
2. МЕІТЕ(1,2)К 
2 ЕОВКМАТ(4НСТР, „5) 
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Порция 55 
Форматы ввода-вывода числовой информации 


Формат 1 


Формат [ является самым простым форматом поля и используется 
при вводе и выводе целых чисел. 
В общем виде формат І можно записать так: 
Іо 


где Г — символ типа формата, и — целая положительная константа, 
определяющая общее количество занимаемых позиций на перфокарте 


12 46810 12 
000000 000000 


ТЕТЕ 
22121242222 
2333333835 


ЕИ ХЕЕЕ КЕКЕК 
272228222 2?2222277 
3333333333133333333 
44444444444 444 9444 
5555555515 5555555 
56666666666 6606666 


44414444 Ва 
5555555558 
6656666666 


7777717877|77777077 10030 


а АВ ТЕ е 
9999999999 


В, 


8880888080088 888688 П 
12 и 04] 26 
339909999 9999999 93193999999 9 


Й 
Рис. 17 ‚ Рис. 18 


(при вводе) или бумажной ленте (при выводе на печать), включая 

позицию для знака. Если, например, поле для вводимой информации 

на перфокарте занимает восемь колонок, то формат поля будет 18. 
Пример. 


ВЕАТ(2,24)1, КТ, 
24 ЕОВМАТ(И0,18,16) 


Это значит, что вводимые числа занимают соответственно 10, 8 и 6 
колонок на карте. На рис. 17 изображена перфокарта, на которой от- 
перфорированы значения переменных 1, К и Г. в заданных форматах. 

Подлежащие вводу целые числа необходимо перфорировать без 
десятичной точки; при выдаче их на печать точка также не печатается. 
Если количество значащих цифр при выводе меньше количества по- 
зиций, предусмотренного в формате, данное будет напечатано в пра- 
вом краю поля. Левые свободные позиции поля будут заполнены про- 
белами. Если вводимое данное имеет меньше значащих цифр, чем 
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предусмотрено в формате, число должно быть отперфорировано в пра- 
вой части поля. 

На рис. 18 показан вид перфокарт, на которых отперфорировано 
число 2345 в формате а/ 15 и 6/ 110. 

При вводе перед положительным числом знак. плюс можно не ста- 
вить, перед отрицательным числом перед первой значащей цифрой 
обязательно должен быть проставлен знак минус. При выводе в боль- 
шинстве случаев знак плюс не печатается. При подсчете числа пози- 
ций в формате поля необходимо предусматривать место для печати или 
перфорации знака. Поэтому, помня об этом, мы можем сказать, что 
формат 15 подразумевает целую константу, состоящую не более 
чем из четырех цифр, так как количество символов, образующих целую 
константу и указанное в этом формате, равно числу цифр плюс одна 
позиция для знака. 

Задание. Написать операторы чтения с перфокарт целых шес- 
тизначных чисел, являющихся значениями переменных: 


К, ММ 


Порция 56 
Форматы ввода-вывода числовой информации 
(продолжение) 


Формат Е 


При вводе и выводе вещественных чисел с фиксированной запятой 
используется формат поля, обозначаемый буквой Е. Этот формат не- 
сколько сложнее формата І, так как в нем необходимо определять 
положение десятичной точки. 

Общая форма формата Е: 


Еол. 


где Е — символ типа формата, о — целое число без знака, определяю- 
щее общее количество позиций, включая колонки для знака и деся- 
тичной точки (другими словами, общую ширину поля), 4 — количество 
цифр после десятичной точки. Для ввода перфорировать код десятич- 
ной точки на перфокарте не обязательно. 

Если десятичная точка отперфорирована, то число 4 не играет 
никакой роли: при ее отсутствии 4 определяет положение подразуме- 
ваемой десятичной точки. Если, например, формат имеет вид Е10.3, 
то подразумевается, что число занимает на перфокарте 10 колонок, 
и если на перфокарте не отперфорирована десятичная точка, то число 
будет введено в память ЭВМ так, как если бы десятичная точка стоя- 
ла между третьим и четвертым знаками справа. 
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Пример. 


ВЕАР (2,18)А,В,С,р 
18 ЕОКМАТ(2Е12.3,2Е10.1) 


При выполнении приведенного оператора ВЕАР первые два вводимые 
числа будут считаны с первых 24 позиций карты (по 12 позиций), при- 
чем первая позиция может быть занята знаком, всего до деся- 
тичной точки может стоять до 9 цифр, после — З. Соответственно, 
третье и четвертое числа занимают по 10 следующих позиций на той 
же карте, из которых первые заняты знаком, девятые — десятичной 
точкой, со вторых по восьмые включительно записаны цифры, 
после десятичной точки — одна цифра. 

При выводе информации формат Е определяет, что в строке, обра- 
зующей запись числа, будет напечатана десятичная точка, причем 
позицию, занимаемую этой точкой, необходимо учитывать при под- 
счете общего количества позиций в формате поля. Например, если 
необходимо напечатать вещественное число, изображение абсолютной 
величины целой части которого может достигать пяти значащих цифр, 
и если необходимо напечатать еще два знака после десятичной точки, 
то при подсчете общего количества позиций учитывается позиция 
лля знака числа, пять позиций перед десятичной точкой, десятичная 
точка и две позиции после нее. Таким образом, поле должно состоять 
по меньшей мере из девяти позиций, т. е. формат должен быть 
9528 

Для облегчения чтения, т. е. для того, чтобы значения печатаемых 
величин. не сливались, следует предусмотреть некоторое количество 
дополнительных позиций, например выбрать формат Е12.2. 

‚Ниже изображены результаты вывода на печать чисел 23457.75, 
— 98447.02 и — 10012.37. 

а) в формате Е9.2 


23457.75—98447.02—10012.37 
б) в формате Е15.2 


23457.75 1 111 1 1—98447.021 1111 1 1—10012.37 


Задание. Напишите операторы, обеспечивающие выполнение 
следующих действий: 

1. Ввод с перфокарты значений переменных А, В, С, Ё, равных 
соответственно 375,4; 8325,75; 25,26; 1,125, используя формат Е. 

`2. Печать значений величин А и В в предположении, что эти зна- 
чения находятся в диапазоне от 1.0 до 275. и после десятичной точки 
будет напечатано не более двух знаков. 
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Порция 57 


Форматы ввода-вывода числовой информации 
(продолжение). 


Формат Е 


При использовании формата Е часто возникает одна трудность: 
что делать, если заранее неизвестно, каков порядок выводимой вели- 
чины? (Программист может не знать, какое количество позиций он 
должен предусмотреть для печати). Эта трудность снимается в слу- 
чае использования формата Е. Этот формат называется обычно фор- 
матом нормализованных чисел и определяет печать выводимой вели- 
чины с заранее заданным количеством значащих цифр в мантиссе 
и с десятичным порядком. Общая форма формата Е следующая 


Е.а 


где Е обозначает тип формата, о — общее количество позиций, а 4 — 
количество позиций между десятичной точкой и буквой Е. Обычно 
принимается © > 4-- 6. Выводимая величина в этом случае будет 
напечатана в виде 


+.п.п,13...пЕ11, 


Здесь п,, і, і. — цифровые символы (1 < і < №). 
Например, вещественное число может быть представлено в виде: 


4-.154376Е 4-02 


Формат поля для этого числа будет Е12.6. 

Заметим, что если число выводится на печать с помощью формата Е, 
то мантисса его представляет собой правильную дробь величиной меж- 
ду 0.1 и 1.0. Для того чтобы выводимая информация была отпечатана 
в другом (иногда более привычном) виде, достаточно поставить перед 
буквой Е в формате поля масштабный множитель вида 


ПР 


При этом десятичная точка будет напечатана между п-й и (и -- 1)-й 
левыми значащими цифрами, а порядок будет автоматически умень- 
шен на п. 

Для того чтобы число в предыдущем примере было отпечатано. 
в виде -- 1.54376Е--01, надо формат поля задать так: 


1РЕ12.6 


Одним и тем же оператором ввода (вывода) можно осуществить 
ввод (вывод) данных разных типов, задавая надлежащим образом 
список форматов в операторе ЕОКМАТ. 
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Например: 
ВЕАД (2,53) Ј ы; т, ©, 4 
53 ЕОВМАТ (316,2Е9.0) 


МРТЕ (1,1) 3, К, |, Х, У 
1 ЕОВМАТ (3110,2Е15.4) 


Для того чтобы напечатать значения вещественных переменных в 
ноэмализованном виде, можно использовать формат Е: 


МАТТЕ. (1,3) 9, К, В, Х, \ 
3 ЕОВМАТ (3110,2Е16.7) 


Задание. В каждом из следующих заданий необходимо про- 
честь с перфокарты исходные данные, использовать считанные значе- 
ния для вычислений и напечатать результаты. Предположите, что каж- 
дое вводимое число занимает 10 колонок на перфокарте, используйте 
Феи Е10.3 для ввода и формат Е16.6 для вывода. 

Ввести с карт значения переменных А, В, С, Х. 
теген, 


р? Ў р? аЬ 
О = И“ 3 2 атс — 5) . а — № 
Напечатать значения переменных А, В, С, Х, 5ТК 


2. Ввести с карт значения переменных А, В, С 
Вычислить: ` 


ИЛИ 


_ эта р В 
== аа Ут 6] сэ . 
Напечатать значения переменных А, В, С, Х. 


Порция 58 


Форматы ввода-вывода числовой информации 
(продолжение) 


Задание. Напишите последовательности операторов ФОРТ- 
РАНа, выполняющих следующие действия, предположив, что каждое 
вводимое данное занимает на перфокарте не более десяти колонок. 

1. Ввести с карт значения переменных А, Х, $ 

Вычислить: 


у= үх? а? р 
х-5 


а? 
а= ЕД5] 


== 


Напечатать значения переменных А, Х, ий 
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9. Ввести с карт значения переменных АО, ВТС, $ТІ, ВК?, $ЕТ 


Вычислить: 
ВВ И 
| тва 
Т = 
Ре мар у туз 
еа ) вю 


Напечатать значения переменных АО, КІС, $ТІ, ВК2, КТ, Е 


Порция 59 


Форматы ввода-вывода числовой информации 
(продолжение) 


Формат С 


Формат С используется для ввода и вывода вещественных чисел. 
Общий вид формата С следующий: 


а.а, 


где С — символ формата, ш — общее количество позиций, занимае- 
мых данным при вводе-выводе, 4 — количество позиций после деся- 
ТИЧНОЙ ТОЧКИ. ў 

Преобразование данных во внутреннее машинное. представление 
при вводе по формату С происходит точно так же, как при вводе по 
форматам Е и Е, поэтому на использовании формата @ при вводе мы 
не будем подробно останавливаться. 

Напомним только, что при вводе по формату 


1 ЕОЕМАТ(С8.2) 


если поле вводимого числа содержит десятичную точку, то пара- 
метр 4 (в нашем примере — 2) игнорируется. Если же поле числа 
не содержит десятичной точки, то ее позиция определяется парамет- 
ром 4. 
Остановимся подробнее на выводе по формату @. При выводе по 
формату С представление числа при печати зависит от величины чис- 
ла. При выводе на печать вещественного числа А = Х.10Р, где 0.1 < 
< Х < 1.0, формат С эквивалентен либо формату Ею. либо формату 
Ео.ӣ в зависимости от величины порядка р; в последнем случае 
значение переменной выводится с постоянным числом значащих 
цифр: 4. | | 
В табл. 15 приведена зависимость фактического формата от вели- 
` чины порядка числа при выводе по формату Со.а: 


72 


Из этой таблицы видно, что формат Сш.4 в зависимости от величи- 
ны р интерпретируется так: н 


Еш.а при р<0 
@ш.4=\1 Еѕ.4—р,4х при 0<р<а; з=ш—4 
Еш.а при ръӣ 


В первом и третьем случаях, когда фактически используется фор- 
мат Е, для ширины поля и необходимо выполнять требование: ш = 
= й - 6. При этом выводится число, имеющее 0 десятичных цифр и 
порядок. Например, значение переменной А, равное — 0.12345. 102°, 
при выдаче на печать в формате С11.4 будет иметь вид: 


.—19848—09 


Во втором случае само число имеет р цифр в целой части и (а — р) 
цифр после десятичной точки, поэтому общее число цифр равно: 


р + (0—р) = 
Таблица 15 
Величина порядка Фактический формат 
—1 РУ 
0 Еѕ.4, 4х 
1 Еѕ.а — 1, 4х 
2 Е5$.а — 2, 4х 
ии Бе 
а Ез.0, 4х 
441 Еш. 

Пример. 

После работы некоторой с необходимо вывести на пе- 
чать значения переменных А, В, С, р, Е, Е, С, Н, соответственно 
равных: 

А = — 0.19345.107° Е = 0.12345 . 10° 
В = 0.12345 . Е Е = 0.12345 . 103 
(С= == 0. 12345 . С = 0.12345. 10* 


р = 0.12345. 107 “ЭШЕ 0125257. 16° 
В и С11.4. Операторы МВІТЕ и ЕОКМАТ можно записать так: 
ҰҮРІТЕ(1,5)А,В,С,р,Е,Б,6,Н . 
5 РОКМАТ(С11.4) 
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Так как в поле оператора ЕОКМАТ в нашем примере задан только 
один формат поля, то при выводе значения каждой переменной опера- 
тор ЕОКМАТ будет просматриваться повторно, причем будет автома- 
тически происходить переход на следующую строку печати. Таким об- 
разом, приведенные выше значения переменных отпечатаются в стол- 
бец (над последним для наглядности указаны номера позиций в строке 
вывода): 


№№ колонок 


1 2345678 901234567890 
— .1234Е—02 
0.1234Е—01 
0.1234 
—1.234 
12.34 
123 .4 
1234. 
0 .1234Е +-05 


Задание. 1. Покажите, какой вид будет иметь выводимая 
на печать в формате С15.4 информация, если требуется напечатать 
в два столбца значения следующих переменных: 


1 столбец 2 столбец 
О—0.287365. 105 5=-—5089.:10° 
Р=0.117.104 т 0’ 
В=0.25953. 10* 0=—0.12345.10* 


2. Запишите операторы МКІТЕ и ЕОКМАТ, организующие пе- 
чать этой таблицы. 


Порция 60 
Форматы ввода-вывода числовой информации 
(продолжение) 


Формат р 


Формат Ю используется для ввода-вывода значений переменных 
повышенной точности. Общий вид формата Г следующий: 


"Роа, 


где Ю — символ формата, а о и 4 — имеют то же значение, что и в 
форматах Е и Е. 
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Пример. 
И МУВТТЕ(1,5)А ^ 
5 ЕОКМАТ(р25.15) 


При вводе с перфокарт по формату Р данные перфорируются так же, 
как при вводе по формату Е, с той лишь разницей, что по формату В 
можно ввести число, имеющее больше значащих цифр, чем при вводе 
по формату Е. 

При сао по формату Р общий вид представления числа такой: 

+0.л,п,пз ... О -Бее, 


После десятичной точки сохраняется 4 десятичных цифр. Так как 
поле ш должно содержать символы 0. и ЮО-+ее,, которых всего 7, 
то для формата О должно выполняться соотношение: 


ши > 4-17 
Пример использования формата р: 


ВЕАР(°,7)1,К,А,В 
7 РОВМАТС(213,Е10.0,025.15) 


Имеется в виду, что ранее в программе переменная В была опреде- 
лена как переменная повышенной точности. 

Задание. Напишите оператор РОКМАТ для ввода значений 
3-х переменных повышенной точности. 


Порция 61 


Формат ввода-вывода значений 
` логических переменных 


Формат Ё 


Формат Г, применяется для ввода-вывода логических переменных. 
Общий вид формата Г, следующий: 


|07 
где Г, — символ формата, а & — целое без знака, обозначающее коли- 


чество позиций, занимающих логической переменной. 

Пример: 
ВЕАр(2,1)1112 
1 РОКМАТ(215) 


При вводе по формату І. на перфокарте рассматривается поле ши- 
риной ш колонок. Если в поле ш первым слева отличным от пробела 
символом будет буква Т, то соответствующей логической переменной 


5 


присваивается значение .ТЕОЕ., если первым символом, отличным 
от пробела будет буква Е, то соответствующей логической переменной 
присваивается значение .ЕАІ5Е.. За символами Т иЕ в поле 0 могут 
` следовать символы, дополняющие до полных слов ТВОЕ и ЕАГЗЕ 
соответственно. 

Пример. 

Значения трех логических переменных 11, 12, 1З вводятся с пер- 
фокарт операторами: 


КЕАр(2,31)11,12,13 
31 РОКМАТ(21.5,17) 


На перфокарте с данными отперфорировано: 


№№ колонок 


123 4 5678 9 012345 6 7890 
Е Е ВАЗЕ 


(цифрами в верхней строке обозначены номера колонок на перфокар- 
те). Значения переменных после ввода: 


=. ТВОЕ. 
т 2--= ВАШЕ. 
1.3 —.РАТЭЗЕ. 


При выводе по формату Г. в поле @ левые (0 — 1) позиций запол- 
няются пробелами. Правым символом будет Т, если значение логиче- 
ской переменной равно .ТКОЕ., и Е, если значение логической пере- 
менной равно .ЕАТЗЕ. 

Пример. 

В результате работы некоторой программы значения логических 
переменных 1/1 и 12 равны соответственно .ТКИЕ. и .РАТЗЕ.. Опе- 
раторами: 


‚МВТТЕ(1,50)1.1 1.2 
50 РОВМАТ(14,16) 


будет отпечатано Т в позиции 4 и Е в позиции 10, как показано ниже: 


МЛ позиций: 
1234567890 
Л Е 


Задание. Значения логических переменных К2, 061, 10802 
вводятся с перфокарт операторами 


ВЕАП(2,5)Р2.1.061,1.062 
5 ЕОВМАТ(ЗТ.5) 
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На перфокарте отперфорированы следующие данные 
ЛЛ колонок 


1 ‚2 
12345678901234567890 
№ Е 


Напишите значения переменных В2, 061, 1062 после ввода. 


| Порция 62 
Форматы ввода-вывода текстовой информации 


Формат Н 


В ФОРТРАНе имеются удобные средства для ввода и вывода тек- 
стовой информации. Это прежде всего формат Н. Общий вид этого 
формата следующий: 2) 

ШН 


где Н — символ формата, & — целое число без знака, определяющее 
количество символов, следующих непосредственно за буквой Н, ко- 
торые будут без изменения введены или напечатаны при выполнении 
соответствующего оператора КЕАР или \МКТЕ. Формат Н часто 
используется для печати заголовков (например, таблиц) или другой 
необходимой информации. Например, нам нужно напечатать заголо- 
вок «ПРОГРАММА ВЫЧИСЛЕНИЯ КОРНЕЙ КВАДРАТНОГО 
УРАВНЕНИЯ». Необходимые для этого операторы ФОРТРАНа мож- 
но записать в виде: еж. 


МЕТЕ (1,5) | 
5 РОКМАТ (50Н, „ПРОГРАММА, ‚ВЫЧИСЛЕНИЯ, КОРНЕЙ, , 
+КВАДРАТНОГО, УРАВНЕНИЯ) 


Запись 50Н в операторе ЕОКМАТ при выводе означает: «Следую- 
щие за Н и пробелом 49 символов должны быть отпечатаны точно в той 
же последовательности, в которой они расположены в данном опера- 
торе ЕОКМАТ». , 

Поэтому машина отсчитает 49 позиций, непосредственно следую- 
щих за Н и пробелом, и отпечатает всю содержащуюся в них последо- 
вательность знаков, которая может состоять из любых символов, имею- 
щихся на устройстве вывода. То есть для вывода текстовых данных 
используется оператор МКІТЕ, имеющий формат: 

МЕТТЕ(®,,^.) 

Пример записи операторов, организующих 

вывод текстовых данных: р 


\Е1ТЕ (1,10) | 
10 ЕОКМАТ (35Н, „РАСЧЕТ, ‚ПОЛЕТА, „РЕАКТИВНОГО, , 
«САМОЛЕТА) ет 


м. 


` Выполнение этих операторов вызовет печать текста: 
РАСЧЕТ ПОЛЕТА РЕАКТИВНОГО САМОЛЕТА. 
Для ввода текстовых данных по формату Н (если в соответствую- 


щем операторе ЕОВМАТ отсутствуют другие форматы полей кроме Н) 
используется оператор КЕАР, имеющий формат: 


КЕАР(К,,№) 
_ Пример записи операторов, организую - 
щих ввод текстовых данных: 


ВЕАР (2,7) 
7 ЕОВМАТ (96 НАААААААААААААААЛАААААААААА) 


При выполнении этих операторов произойдет замена текстовой 
информации внутри оператора ЕОКМАТ: 26 символов, следующих 
за кодом Н, будут заменены на 26 очередных символов, считываемых 
с перфокарты. Если на перфокарте, например, для ввода по этому 
формату содержалась информация 


_ „ВВОД, „ДВУМЕРНОГО, + МАССИВА, Р 


то после выполнения приведенных выше операторов текст в операторе 
РОК МАТ будет заменен введенным, т. е. получится: 


26Н, „ВВОД, „ДВУМЕРНОГО, „МАССИВА, Р 


Формату Н не сопоставляется никакая переменная в списке опе- 
раторов ввода-вывода. Если в операторе ЕОЕМАТ отсутствуют какие- 
либо другие форматы полей, кроме Н (а также формата Х, см. сле- 
дующую порцию), то операторы ввода-вывода не должны содержать 
списка переменных; вся пересылаемая информация будет состоять 
только из текстовых данных. 

Формат Н может использоваться в списке оператора ЕОВМАТ вме- 
сте с любыми другими форматами. Например, результатом выполне- 
ния следующей последовательности операторов: 


\М/ЕГТЕ(1,28)Х 
28 ЕОКМАТ(4Н, «Х=, ,,1РЕ1О.3) 


будет выдача на АЦПУ следующей строки: 
Х= ии 11.874Е+-01 


если результат вычисления значения Х равен 13.74. 

Формат Н может находиться в списке форматов после любых дру- 
гих форматов, впереди них и между ними. Длина поля, задаваемого 
форматом Н, не должна превышать длину строки используемого уст- 
ройства ввода-вывода (например, длину строки на бумажной ленте 
при выводе на печать). 
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Задание. Напишите операторы ФОРТРАНа для вывода на 
печатающее устройство заголовка программы вычисления скалярного 
произведения двух векторов, предполагая, что строка вывода содер- 
жит 128 символов. 


Порция 63 
Форматы ввода-вывода текстовой информации. 
(продолжение) 


Формат Х 


Формат Х используется для пропуска заданного количества ко- 
лонок перфокарты при вводе или вставки пробелов при выводе ин- 
формации. Общий вид этого формата следующий: 


ох 


где Х — символ формата. Если этот формат применяется при вводе, 
то и обозначает общее количество колонок, которые будут пропуще- 
ны в соответствующих позициях перфокарты; при выводе между соот- 
ветствующими полями при печати будет вставлено & пробелов. 

Примеры. 

1. Для ввода информации, отперфорированной на перфокарте в 
колонках 11—20 и 31—40 в формате Е10.3, следует написать операторы 
ввода в виде: 


ВЕАР (2,1) Х, У 
1 ЕОБМАТ (10Х,Е10.3,10Х,Е10.3) 


2. Чтобы отпечатать заголовок в середине строки в 120 символов, 
мы должны операторы вывода записать в виде: 


\Е1ТЕ (1,9) 
2 ЕОВМАТ (40Х ЗВНТАБЛИЦА, „КОРНЕЙ, КВАДРАТНОГО. 
1 УРАВНЕНИЯ) | 
\УВІТЕ (1,3) ^ 
_ 3 ЕОВМАТ (48Х, 2х1, 20х,2НХ?2) 
\ЕТТЕ (1,4) Х, 
4 ЕОВМАТ (42Х, 0, 8,8Х,Е20.8) 


Результатом выполнения этих операторов будет выдача на широ- 
кую печать следующей таблицы: 
ТАБЛИЦА КОРНЕЙ КВАДРАТНОГО УРАВНЕНИЯ 
ХІ х2 


ебе аа еа еа в ЕВ 6:6 
аак езу авзо етиу Е: 199 соо 
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Задание. Напишите операторы ФОРТРАНа для вывода на 
печатающее устройство с 128 символами в строке результатов, полу- 
ченных при выполнении некоторой программы. В заголовке, поме- 
щенном в середине страницы, необходимо предусмотреть печать сле- 
дуюшего текста: 


НАЛИЧНЫЙ ЗАПАС ТОВАРОВ 


Далее должны быть отпечатаны заголовки колонок с наименова- 
ниями товаров: ТОВ1, ТОВ2, ТОВЗ, ТОВА. Расстояния между ко- 
лонками — 10 пробелов. Значения переменных ТОВІ, ТОВ2, ТОВЗ, 
ТОВА отпечатать в формате Е10.0. 


Порция 64 


Форматы ввода-вывода текстовой информации 
(продолжение) 


Формат А 


^ Формат А используется для ввода и вывода текстовых данных. 
Идентификаторы переменных, к которым применяется формат А, 
указываются в списке соответствующих операторов КЕАР или 
МКІТЕ. 

Общий вид формата А следующий: 


Аш 


где А — символ типа формата, а ш — целая константа без знака, ука- 
зывающая количество символов, которые необходимо ввести или вы- 
вести. | 
Пример. 
ҮРІТЕ (1,1) А, В 
1 ЕОВМАТ(АТ,А6) 


Если значением переменной А является строка символов 
‚ „ВЫВОД, }, а переменной В — ТЕКСТА, то при выполнении запи- 
санных выше операторов будет напечатано: 


ВЫВОД ТЕКСТА 


Если о, указанное в формате, равно числу символов соответствую- 
щей переменной списка, то эта переменная будет прочитана или вы- 
ведена без изменений. 

Если о недостаточно для размещения веех символов соответствую- 
щей переменной, то сохраняются левые символы строки. Если размер 
ш больше необходимого, то строка символов выравнивается к правому 
краю, а слева поле ш дополняется пробелами. 
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Обозначим через п размер поля переменной, указанной в списке 
оператора ввода-вывода и связанной с форматом А. Если целое ш, 
указанное в формате А, равно и, то все поле переменной будет за- 
полнено считываемыми символами при вводе или все содержащиеся 
в нем символы будут выведены при выводе. Если и < п, то только о 
самых левых позиций строки значений переменной будут участвовать 
в операции; если & >> и, то эта строка будет выравнена к правому 
краю, а слева свободные ш — п позиций ее поля будут заполнены 
пробелами. 

Как было отмечено в порциях 43 и 44, в форматах операторов 
КЕАР и МБІТЕ вместо метки соответствующего оператора ЕОКМАТ 
может быть указан идентификатор массива. В этом случае начальная 
часть информации в указанном массиве, взятая в естественном поряд- 
ке, должна представлять собой правильную спецификацию формата, 
однако не содержащую форматов типа Н. Как и в случае оператора 
РОКМАТ, спецификация формата должна быть заключена в скобки. 

Для размещения спецификации формата в массиве может быть 
использован оператор КЕАР с форматом А или оператор начальных 
данных РАТА (см. порцию 97). 

Задание. Значением переменной А является текст. АВСО, 
а переменной В — текст ЕЕСН. Напишите операторы для вывода на 
печать текста АВЕЕ. 


Порция 65 
Бланк записи исходных данных 


На рис. 19 изображен бланк записи исходных данных. для 
ФОРТРАН-программы. Данные на бланке должны размещаться с 
первой позиции строки и точно в заданном формате. 

Напоминаем еще раз, что точку в числах, записываемых в форма- 
тах Е, Е, Ди б, можно не ставить. Эна автоматически проставляется 
машиной в том месте, которое указано в формате. Например, для пе- 
ременных А, В и С, имеющих значения — 121.215, 17.213.— 7.101 
и используемых в операторах 


ВЕАР(, А, В,С 
3 РОКМАТ(ЗЕ10.3) 


значения на бланке данных можно записать, как показано на рис. 20 
(а, б или в). 

Задание. Запишите на бланке исходных данных в формате 
Е9.3 значения переменных С, Р, Е, рана соответственно 725,39; 
8900,01 и 1,325, 
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Порция 66 
Бесформатный ввод-вывод 


Кроме способов ввода-вывода информации по заданному формату, 
описанных в порциях 45—64, в ФОРТРАНе имеются средства для 
ввода-вывода данных без заданного формата, т. е. в виде «образов 
оперативной памяти» (в машинном представлении). Дело в том, что при 
выполнении ФОРТРАН-программ, работающих с большим объемом 
данных, часто используются лента и диски для временного запоми- 
нания информации, когда не хватает места в оперативной памяти. 
В таких случаях информация после чтения должна иметь точно такой же" 
вид, что и перед записью. Если начать выполнять форматные преоб-.. 
разования при чтении, то это будет просто потерей времени. Поэтому 
в язык включены варианты операторов КЕАР и \ЕТЕ, допускаю- 
щие бесформатный ввод-вывод данных. Формат этих операторов 
следующий: 

ВЕАр(и)ё 
ИЛИ КЕАРр(и) 
М/КТТЕ(и)® 


Здесь и — целая константа без знака — номер устройства ввода- 
вывода или идентификатор целой переменной, определяю- 
щей этот номер; 

Е — список переменных, значения которых, рассматриваемые 
как очередные символы, поступающие с этого устройства, 
вводятся с устройства с номером и или выводятся на это 
устройство. 


Порция 67 
_ Операторы перехода 


Выполняемые и невыполняемые операторы 


Операторы языка ФОРТРАН, рассмотренные в предшествующих 
порциях, позволяют производить весьма сложные вычисления, ввод 
и вывод информации, но все они могут выполняться только в фикси- 
рованной последовательности — в порядке их записи. Для изменения 
порядка выполнения операторов в ФОРТРАН-программе использу- 
ются специальные операторы передачи управления, или перехода. 

Но прежде чем перейти к более подробному знакомству с опера- 
торами управления и изучению методики их использования, давайте 
запомним с тем, чтобы больше к этому не возвращаться, что в случае 
отсутствия каких-либо операторов передачи управления вычисли- 
тельная машина будет выполнять операторы ФОРТРАНа последова- 
тельно в порядке их следования в программе. 


26 & _ 83 


Как было отмечено ранее, в языке ФОРТРАН имеются выполняе- 
мые и невыполняемые операторы. 

Вынолняемые операторы являются для вычислительной машины 
командами для выполнения некоторого действия, например вычисле- 
ния и присвоения значения переменной (равного значению соответст- 
вующего арифметического или логического выражения), считывания 
информации, вывода информации на печать и т. д. Из ранее рассмот- 
ренных выполняемыми операторами являются операторы присвоения, 

‚ операторы КЕАР и МКІТЕ. 

Невыполняемые операторы (например, оператор ЕОКМАТ) со- 
держат информацию относительно вводимых данных, их размещения 
на перфокарте или на бумажной ленте при печати или в памяти ма- 
шины. 

Задание. Как будут выполняться операторы в ФОРТРАН- 
программе в случае отсутствия операторов передачи управления? 


Порция 68 
Операторы перехода (продолжение) 


Безусловный оператор СО ТО 


В языке ФОРТРАН имеется 3 вида операторов перехода, или опе- 
раторов СО ТО: 

1. Безусловный оператор СО ТО. 

2. Оператор СО ТО по вычислению. 

3. Оператор СО ТО по предписанию. 

В этой порции мы рассмотрим первый тип оператора — безуслов- 
ный оператор СО ТО. 

Это наиболее простой из всех операторов перехода. Формат опера- 
тора следующий: : 


СО ТОп 


Здесь п — метка некоторого оператора, содержащегося где-либо в 
той же программной единице. Действие оператора состоит в том, что 
после него следующим будет выполняться оператор программы, метка 
п которого указана в операторе СО ТО. В этом случае принято гов>- 
рить: управление последовательностью выполнения операторов про- 
граммы (или, короче, управление) передается оператору с меткой п 
(или, короче, оператору п). В качестве примера рассмотрим фрагмент 
программы: 
А =0.597*р 


15 Х-АКҶ-0*4.0 


Здесь сначала присваивается ‘значение переменной А, затем оно. пре- 
образуется в данное целого типа, обозначаемое идентификатором К. 
Далее следует оператор СО ТО 15, который указывает, что следую- 
щим должен выполняться оператор 15 (а не 14). 

Оператор с меткой п, указанной в операторе СО ТО я, может встре- 
чаться в программе до или после данного оператора СО ТО, причем 
в языке нет никаких особых ограничений на метки, которыми можно 
снабжать операторы; напомним только требование: в данной про- 
граммной единице никакие два оператора не могут быть помечены 
одинаковыми метками. 

При использовании операторов СО ТО п необходимо соблюдать 
следующие правила: Е 

Правило 1. Метка оператора представляет собой последователь- 
ность не более чем из пяти цифр. Далее, метка в операторе СО ТО 
должна быть меткой некоторого выполняемого оператора, а не опера- 
тора, скажем, ЕОКМАТ. То есть, управление с помощью оператора 
СО ТО может быть передано только выполняемому оператору 
ФОРТРАН-программы. 

Правило 2. Оператор, который следует за безусловным операто- 
ром СО ТО, должен быть снабжен меткой. 

В нашем примере оператору, следующему за СО ТО, присвоена 
метка 14. Посмотрите, что произошло бы, если бы оператор, следую- 
щий за безусловным СО ТО, не был бы помечен. При выполнении опе- 
ратора СО ТО управление было бы передано оператору 15, а непоме- 
ченный оператор, который следует непосредственно за оператором 
СО ТО, никогда не выполнился бы, так как непомеченному оператору 
может передать управление только непосредственно предшествующий 
ему оператор. = - 

Таким образом, непомеченному оператору управление передает 
предшествующий ему в записи оператор (а если он будет первым опе- 
ратором в программной единице, то получит управление по вызову 
к выполнению этой единицы); если оператор помечен, то ему может 
быть передано управление по его метке какими-либо операторами пе- 
рехода, в которых используется эта метка. 

Задание. Перечислите правила использования безусловного 
оператора СО ТО. 


Порция 69 
Операторы перехода (продолжение) 
Оператор СО ТО по вычислению 


Оператор СО ТО по вычислению позволяет осуществлять разветв- 
ления в программах. Формат оператора имеет вид 


СО ТО (п), т 


где и — список меток выполняемых операторов, т — идентификатор 
переменной целого типа, называемой управляющей переменной; 
область допустимых значений управляющей переменной составляют 
целые положительные числа от 1 до ј, где ј — число меток в списке 
оператора СО ТО. 

Пример оператора СО ТО по вычислению: 


СО ТО(12,29,34,2),К 


Выполнение этого оператора состоит в выборе одной из возможных 
ветвей вычислений, а именно: если К = 1, осуществить переход к опе- 
ратору с меткой 12; если К = 2, перейти к оператору с меткой 29; 
ёсли К = 3, перейти к оператору с меткой 34, и при К = 4 перейти 
к выполнению оператора с меткой 2. 

В общем случае оператор СО ТО по вычислению осуществляет 
передачу управления оператору, метка которого занимает ту пози- 
цию в списке меток данного оператора, порядковый номер которой 
в списке меток равен значению управляющей переменной. 

При использовании оператора СО ТО по вычислению необходимо 
соблюдать следующие правила: 

Правило 1. Метки операторов, которым возможна передача управ- 
ления данным оператором СО ТО, должны быть заключены в скобки. 
Все эти метки должны быть разделены запятыми. 

Правило 2. Запятая должна быть проставлена и после скобок. 

Правило 3. Управляющая переменная должна быть целого типа. 
Эта переменная может принимать различные положительные цело- 
численные значения, максимальное из которых определяется количе- . 
ством и элементов в списке меток этого оператора, т. е. она может при- 
нимать значения в диапазоне от 1 до п и тем самым определять метку 
для передачи управления. Если управляющая переменная принимает 
в момент выполнения оператора СО ТО по вычислению значение вне 
указанного диапазона значений, то этот оператор считается неопре- 
деленным. 

Пример 1. | 

Пусть целая переменная с идентификатором КАТЕТ может при- 
нимать значения, равные 34, 35 или 36. Если КАТЕТ = 34, то нам 
нужно передать управление оператору 235, если КАТЕТ == 35, то 
управление передается оператору 236, если КАТЕТ = 36, то оператору 
99. Указанное разветвление можно осуществить посредством следую- 
щих двух операторов: | 


Ј = КАТЕТ — 33 
СО ТО (235, 236, 99), Ј 


Пример 2. 
_В программной единице вычисляется некоторое целое №. При этом 
требуется в зависимости от того, дает ли деление М на число 5 в остат- 
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ке 0, 1, 2, 3 или 4, перейти соответственно к одному из операторов, 
помеченных метками 


4,12,2,7,3 


Требуется составить фрагмент программы, обеспечивающий над- 
лежащее разветвление. 

Введем переменную целого типа № и присвоим ей значение следую- 
щего выражения: 


№М—3/5:54-1 


Обращаем Ваше внимание на то, что согласно определению операции 
деления для целых выражение М№/5+5, вообще говоря, не равно М, 
а равно разности числа М и остатка от его деления на 5. Таким обра- 
зом, фрагмент программы для решения этой задачи можно записать 
так: | ў 
№ = №№/554-1 
ЗО ТО (4,12,2,7,3),№5 


Задание. Определите ошибки в записи операторов СО ТО по 
вычислению и напишите операторы правильно: 


а) СО ТО93,94ІВ 

6). СО Т0(93,94)1 = 
в) СО Т0(93,94,95),А 
г) СО Т0(93,94.),К 


Порция 70 
„Операторы перехода (продолжение) 


Оператор присвоения метки АЗ $16 М 


Сам по себг оператор АЗ$1СМ не является оператором передачи 
управления, но результат его выполнения используется специальным 
оператором СО ТО — оператором СО ТО по предписанию. 

Общий формат оператора А$51СМ№ следующий: 


А$ЗТОМ п ТО т 


Здесь т — идентификатор целой переменной, 
п — метка одного из выполняемых операторов, входящих в 
состав той же программной единицы. 
Действие приведенного оператора АЗЗ1@М состоит в присвоении 
идентификатору 7 значения «метка л». 
Например, результатом выполнения оператора 


| А$5ТОМ 10 ТОК 
является присвоение переменной К. значения «метка 10». 


Программа может содержать несколько операторов А$ЗТОМ, при- 
сваивающих те или иные значения одной и той же переменной. Тем са- 
мым один и тот же оператор СО ТО по предписанию, содержащий дан- 
ную целую переменную, будет определять переход на тот или иной 
оператор программы в зависимости от текущего значения этой пере- 
менной. 

Идентификатор т, используемый в каком-либо из операторов пе- 
рехода по предписанию в некоторой программной единице, может быть 
использован в этой же программной единице как идентификатор не- 
которой переменной целого типа. 

Однако эти два вида использования — в операторах перехода по 
предписанию и каких-либо других операторах — по существу раз- 
личны и каждому из них должно предшествовать разного вида при- 
своение значения этому идентификатору: 

для оператора СО ТО по предписанию — посредством оператора 
А$5ТаМ; 

для других операторов — прочие виды определения (например, 
через арифметический оператор присвоения или оператор ввода). 

Таким образом, после присвоения идентификатору т значения 
метки посредством оператора А551СМ№, этот идентификатор может 
быть использован только в операторах СО ТО по предписанию до 
тех пор, пока ему не будет присвоено некоторое значение, например 
посредством оператора ввода или оператора присвоения. С другой 
стороны, если идентификатору присвоено значение посредством, на- 
пример, оператора ввода, он не может быть использован в Ее 
СО ТО по предписанию, - пока ему не будет присвоено значение \неко- 
торой метки оператором А55ІСМ. 

Разумеется, значение никакого идентификатора не может быть 
использовано до тех пор, пока оно ему не присвоено. 

Задание. Запишите оператор присвоения переменной Г. зна- 
чения метки 31. 


Порция 71 
Операторы перехода (продолжение) 


Оператор СО ТО по предписанию 


Формат оператора СО ТО по предписанию имеет вид: 


СОО (Ио, ПМ 
Здесь т — идентификатор переменной целого типа; 
Пі, По, ... у — список меток тех операторов, которым возмож- 


на передача управления данным оператором СО ТО по предписанию. 
Метки из указанного списка (и только эти метки) могут встречаться · 
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в соответствующих операторах АЗ$1СМ, связанных с данной пере- 
менной т, называемой управляющей переменной этого оператора. 

Оператор СО ТО по предписанию передает управление оператору 
с той меткой, которая в последний раз была присвоена одним из опе- 


раторов АЗЗТ@М переменной т. 


При несовпадении в момент выполнения некоторого оператора 
СО ТО по предписанию значения переменной т ни с одной из имею- 


щихся в его списке меток этот опера- 
тор считается неопределенным. 

Список меток в операторе СО ТО 
по предписанию может содержать любое 
число меток (однако такое, чтобы общая 
длина данного оператора не превышала 
допустимые размеры для операторов 
языка, т. е. 1320 символов).. 

Примеры использования операторов 
А551ІСМ и СО ТО по предписанию: 


АЅ5ІСМ 20 ТО М1 
60 ТО МІ, (20, 21, 22) 
Следующим после оператора СО ТО 


будет выполнен оператор с меткой 20, 
если между этими двумя операторами 


не выполнялся никакой другой оператор · 


45516№ 10 ТО М 
60 105 


А5516№ 11 ТОМ 
60 ТО 5 


АЅ516М№ 12 Т0 М 
60 Т0 5 


А5516М 15 ТОМ 
60 Т0 5 


АЅ516М 14 ТОМ 

АЅЅІСМ или оператор перехода. Кроме 60 Т0 
того, между указанными операторами 
также не должны выполняться никакие 
операторы, присваивающие переменной 
М1 какие-либо значения. 

На рис. 21 схематически показано ри 
использование операторов А$$1СМ и І 
СО ТО по предписанию для обращения к некоторому участку ` про- 
граммы с последующим возвратом из него. 

Задание. В каждой из следующих последовательностей опе- 
раторов А55І6СМ и СО ТО по предписанию допущена ошибка. Най- 
дите ее и запишите эти операторы правильно: 


а) АЗУЮМ 3 ТО ІВВ г) ВВ=3 


СО ТО 160(1,2,3,4,5) СО ТО 1ВК, (1,2,3,4) 
б) А510 7 ТО КЗ5 д) А5510\ 3 ТО ВВ 
ЕВЕ 1 


СО ТО КЗ5,(3,15,23,53) 
СО ТО ІКК,(1,2,3,4,5) 


в) АЗ$ОМ 23 ТО АВВ 


- СОТОАКЕ, (19,20,21 ,22,23) 
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Порция 72 
Операторы перехода (продолжение) 


Операторы перехода СО ТО по вычислению 
и по предписанию 


Сравним операторы перехода языка ФОРТРАН, предназначенные 
для реализации разветвлений в программах. · 

Оба эти оператора содержат заключенные в скобки непустые спи- 
ски меток некоторых выполняемых операторов, принадлежащих той 
же программной единице, в которой записан каждый из этих опера- 
торов. | 

В каждом из этих операторов используется идентификатор пере- 
менной целого типа (в операторе перехода по предписанию он следует 
непосредственно после служебного слова СО ТО, в операторах пере- 
хода по вычислению — после заключенного в скобки списка меток). 

Однако переменная в операторе СО ТО по вычислению является 
обычной переменной целого типа, которая может быть использована 
наряду с оператором СО ТО и в других операторах (если, конечно, 
этому использованию не будет предшествовать оператор А551СМ, 
присвоивший ей значение метки). 

Например, вполне допустима такая последовательность опера- 


торов: = 
1=1 
К = 1+3 
1 = 1+М 


СО ТО (14, 2, 8, 11), 1 


ае И я а 


От этой переменной при ее использовании в операторе СО ТО по 
вычислению требуется лишь, чтобы она принимала одно из значений 
1, 2, ..., п, где т — количество меток в списке такого оператора. 
Значение этой переменной само не является меткой, а лишь опреде- 
ляет позицию той метки в их списке, по которой должно быть переда- 
но управление. Очевидно, что следующая последовательность опера- 
торов в языке ФОРТРАН является недопустимой: 


Т=2 
АЅ5ІСМ 4 ТО 1 
СО ТО (2,4,7,12),1 


поскольку использованию идентификатора І в операторе перехода по 
вычислению не может предшествовать присвоение ему значения опера- 
тором АЗЗТ@М. | 

С другой стороны, переменная в операторе СО ТО по предписанию, 
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как было отмечено в предыдущей порции, является особой перемен- 
ной, использованию которой должно предшествовать присвоение ей 
значения метки оператором А5518М№. Напомним, что от последнего 
требуется, чтобы оно совпадало с одной из меток, составляющих спи- 
сок соответствующего оператора перехода. 

Задание. 1. Изменится ли смысл оператора ЧО ТО по пред- 
писанию при перестановке местами входящих в его список меток? 
А смысл оператора СО ТО по вычислению? 

2. Изменится ли смысл оператора СО ТО по предписанию, если 
входящий в него список меток дополнить еще одной меткой? А смысл 
оператора СО ТО по вычислению? Е 

3. Определите, допустимы ли следующие последовательности опе- 
раторов на ФОРТРАНе: 


а) К=3 ви —3 


ЧО ТО К, (12,11,13) АЗЗТАМ 5 ТО К 
АЅ5ІСМ 6 ТО І 


6) К=3 АЅЅІСМ 7 ТО М 


СО ТО (12,11,13), к 80 ТО (КМ), 
4. Определите, какие из приведенных пар операторов эквивалентны: 
а) СО ТО К, (12,13,14 в 90 ТО (12,13), К 


СО ТО К, (14,12,18) | СО ТО (12,13,12), К 
6) СО ТО (12,13,14), К г) СО ТО К, (12,1313) 
СО ТО (14,13,12), К СО ТО К, (12,13) 

Порция 73 


Операторы перехода (продолжение) 
Арифметический оператор ПЕ 


`В языке имеется две разновидности операторов перехода ІЕ; . 
арифметический оператор ТЕ; К 
логический оператор ГЕ. 

В этой порции мы рассмотрим первый из операторов — арифме- 
тический оператор ІЕ. 

Арифметический оператор 1Е позволяет передавать управление 
одному из трех операторов в зависимости от знака некоторой перемен- 
ной арифметического типа (целой, вещественной, повышенной точ- 
ности) или какого-либо арифметического выражения. 

Общий формат оператора ІЕ следующий: 

ГЕ (ап. ,п,,п3 
где о — арифметическое выражение; 
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пл, П, пз — метки операторов, которым мсжет быть передано уп- 
равление данным оператором ІЕ. Действие оператора сводится к сле- 
дующему: 

если арифметическое выражение в скобках отрицательно, то уп- 
равление передается оператору с меткой и1; 

если это выражение равно нулю — оператору с меткой п»; 

если оно положительно, то управление передается оператору с 
меткой пз. 

Давайте разберем следующий пример. Предположим, что по ходу 
выполнения программы необходимо вычислить У как функцию Х 
по одной из следующих формул: 


0,5Х - 0,957, если Х < 2,11; 
У = {0,7Х - 0,533, если Х > 2,11; 
0,6Х - 0,745, если Х = 2,11; 


Предположим, что значение Х было вычислено предыдущими 
операторами, и нам нужно написать фрагмент программы для вычи- 
сления значения У. Этот фрагмент может быть 
представлен в виде: 


ІЕ(Х—2.11)50,40,30 
50 У=0.5=Х --0.957 
СО ТО 5 
40 Ү0.6:Х.+0.745 — 
ОО ТО 5 
30 У=0.7+Х --0.533 
5 (продолжение программы) ` 


Обратим Ваше внимание на необходимость 
двух операторов СО ТО 5, включенных в при- 
веденный фрагмент программы. Действитель- 
но, при отсутствии, например, первого из них, 
независимо от того, что выполнялся оператор с 
меткой 50, выполнялся бы оператор с меткой 40, что при Х—2.11 <0 
приводило бы к неверному результату. 

Для большей наглядности представим ход основных вычислений 
в нашем примере в графическом виде — в виде блок-єхемы (рис. 22). 

Рассмотрим еще один пример. 

7 Нужно написать фрагмент программы для вычисления значений 
ункции, 


У=05х+0,957 


У=06%+0,745 
у=0,7Х +055; 


Оператор 
с меткой 9 


„Рис. 22 


и, если х<0 

х . п (3х), если 0 <х< 1,5 
Її) = х? — 1, если 1,5 < хх 2,5 

х— 5, если 2,5< х 
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используя арифметический оператор ІЕ. · 
Необходимый фрагмент может быть представлен в виде: 


ІЕ(Х)3,3,6 
3 Е=Х4-3.0 
СО ТО 
6 1Е(Х—1.5)9,12,12 
9 Е= Х*513(3.+Х) 
аб ТО 22 
12 І (Х—2.5)15,15,18 
15 Е=Хж=2— 1.0 
СӨ ТОв22 
18 Е=Х—5.0 
22 (продолжение программы) 


Заметим, что наличие всех трех операторов СО ТО 29 является 
необходимым и обеспечивает выход в одну и ту же точку программы, 
на ее продолжение, независимо от того, на какую из ветвей (на какой 
оператор присвоения) было переведено управление в результате вы- 
полнения одного из арифметических операторов ІЕ. Обращаем Ваше 
внимание на то, что каково бы ни было значение Х, переход будет 
осуществлен только по какой-либо одной из этих ветвей. 

Задание. Напишите фрагменты программы для вычисления 
значений следующих функций: 

а) (0) —= (іи х если х < 0; 

а если 50); 
х — 1, если х < 10; 
9л зена если х = 10; 
7,1х — 5,6, если х > 10. 

Подразумевается, что каждый такой фрагмент является частью 
некоторой программы, поэтому писать полную программу с операто- 
рами ввода-вывода не требуется. 


Порция 74 
Операторы перехода (продолжение) 


Логический оператор 1Е 
Логический оператор ІЕ имеет формат: 
ГЕ (6) 5 


Здесь В — логическое выражение; 
5 — любой оператор ФОРТРАНа, кроме ГО (о нем будет речь 
далее) и логического ІЕ. 


93 


Логический оператор ІЕ выполняется следующим образом: сна- 
чала проверяется истинность логического выражения В, содержаще- 
гося в скобках в формате оператора. Если значение логического выра- 
жения истинно (.ТКОЕ.), то следующим выполняется оператор 5. 
Если логическое выражение ложно (.РАТЗЕ.), то оператор $ пропу- 
скается и управление передается оператору, который должен выпол- 
няться в программе следующим. 

Примеры логических операторов ІБ: 


ТЕ(А.МЕ.В) В=(В— $) 2 
ТЕ(А.СВ.В) СО ТО _915_ 
ТЕ(МОТ.(0.ОВ.У)) А=А--0.1 


В том случае, когда логическое выражение, содержащееся в логи- 
ческом операторе ІЕ, является отношением, этот оператор может быть 
заменен двумя операторами, одним из которых является арифмети- 
ческий оператор Е. Например, первый оператор в пре выше 
Сере можно заменить двумя операторами: 


о 2,1 
(8—5) 
5 Е. программы) 


Ниже приведены два фрагмента программ, реализующие вычисле- 
ние значения функции: 


х2 — 1, если х>0Ли>0; 
ху, если х< 0 Л 020; 
ЁО, 0) = | у. зіп (3х), если х у < 1 Л х0 Лу<о 
ху, если х2 + у >4Лх>0Ли-—0, 
при заданных ее параметрах. Эти два фрагмента эквивалентны. 


1) ІЕ(Х.СЕ.0..АМ№Р”.Ү.ОТ.0.) СО ТО 5 

ІЕ(Х.ІТ.0.0.АМ№.Ү.СТ.0.) СО ТО 10 
ТЕ(Хж«2-- Уж=2.ГЕ.1..АМО.Х.ГТ.о..АМО.У.ГЕ.О.) О ТО 15 
ТЕ(Х=*2-- Уз+2.СЕ.4..АМО.Х.СТ.О..АМО.У.ГТ.о.)Е = Х+Ү 
СО ТО 20 

5 Е=Хь-2— Ук 
СО ТО 20 

10 Е=Х»У 
СО ТО 20 

15 Е= Ү»*513(3.*Х) 

20 (продолжение программы) 


2) ТЕ(Х.ОЕ.0..АМ№О.Ү.ОТ.0.)Е= ХҮғ 
ІЕ(Х.ІТ.0..АМР.Ү.СТ.0)Е=Х«Ү \ 
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+2 У 181. АМБ.Х1 ІТ.0..АМ№Р”.Ү. 
ЛЕ(Хк2-- У+«2.СЕ.4..АМО.Х.АТ.О. каМ, \: 
(продолжение программы) 


Эквивалентность второго фрагмента первому следует из того, что ло- 
гические выражения, используемые в операторах Е, являются взаим- 
но исключающими: только одно из них может быть истинным, каковы 
бы ни были входящие в эти выражения значения Х и У. Поэтому из 
числа операторов присвоения, входящих в логические операторы 1Е, 
только один будет выполнен. 

- Вместе с тем заметим, что, хотя второй из приведенных фрагментов 
короче по записи, по времени выполнения в среднем он менее эконо- 
мичен, т. к. при его выполнении осуществляется проверка истинности 
всех логических выражений, входящих во все операторы 1Е, даже пос- 
ле того, когда какое-либо из этих выражений окажется истинным. 

Задание. 1. Напишите на языке ФОРТРАН фрагмент про- 
граммы для решения следующей задачи: 

Если результат логического умножения переменных и Г2 равен 
„ТКУЕ., выполнить оператор А = А-1. и перейти к выполнению 
оператора с меткой 2; если он равен .РАГЅЕ.— непосредственно пе- 
рейти к оператору с меткой 2. 

2. Напишите фрагмент программы для вычисления значения сле- 
дующей функции, используя логический оператор ГЕ: 


Гы если х = 12.7. 
= 2-1 4х, если х< 12,7. 


ТЕ. ов НУВ ых 
ІТ.0.)Е= 


Порция 75 
Оператор РАОЅЕ 


Оператор РАОЅЕ используется для временной остановки выпол- 
нения программы. Формат оператора РАОЅЕ следующий: 


РАОЅЕ и 
ИЛИ 
РАОЅЕ 


Здесь п — целое восьмеричное число без знака, состоящее не более 
чем из пяти цифр. 
Примеры записи оператора: 


РАОЗЕ 1 
РАОЗЕ 12 


Оператор РАОЅЕ вызывает прерывание (паузу) в выполнении про- 
граммы. В момент прерывания по оператору РАОЅЕ на стандартное 
устройство вывода выводится целое без знака и, указанное в этом 
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операторе. В приведенных примерах при остановке будут выданы 
записи: 


1 
12 


После прерывания выполнения программы по оператору РАОЅЕ 
можно либо снять программу, либо продолжать ее выполнение с пре- 
рванного места. Заметим, что решение о возобновлении выполне- 
ния программы не находится под управлением самой программы и 
должно исходить извне. Другими словами, непосредственно в языке 

ФОРТРАН нет средств для задания этого решения. Оно должно 
исходить от операционной системы, под управлением которой выпол- 
няется данная программа. 

Оператор РАОЅЕ чаще всего используется для проверки логики 
программы при отладке. 

Задание. Какую функцию выполняет в программе оператор 
.РАОЅЕ? 


Порция 76 
Оператор ЗТОР 


Оператор 5ТОР завершает работу программы и передает управ- 
ление программе-монитору (диспетчеру). 
Формат оператора ЗТОР: 
ЭТОР` л 


5ТӨР 
где п — целое восьмеричное число без знака, содержащее от одной 
до пяти цифр. 
При остановке программы по оператору ЗТОР на стандартное 
устройство вывода выдается запись 


ИЛИ 


п 


Примеры записи оператора: 


ЅТОР 15 
ЗТОР 3 
ТОР 


Таким образом, целое, указанное в операторе ТОР, может быть 
использовано, как и в операторе РАОЅЕ, в качестве признака, когда 
в программу включается несколько таких операторов для определе- 
ния того, по какому из них произошел останов. 

Операторы $ТОР являются всегда последними выполняемыми опе- · 
раторами программы, поэтому они могут быть помещены только в 
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главной программе; наличие хотя бы одного оператора ЗТОР в глав- 
ной программе обязательно. 

Задание. Какую функцию выполняет в программе оператор 
ЭТОР? 


Порция 77 
Конечная строка 


Каждая программная единица должна заканчиваться конечной 
строкой, указывающей транслятору конец программной единицы. 
Конечной строкой называется такая строка, в колонках с 7-ой по 
72-ую которой в любых позициях записываются символы Е, М, О, 
стоящие в указанном порядке, а в остальных (в том числе и между бук. 
вами Е, М, р) проставлены пробелы. 

В каждой программной единице может быть только одна конеч- 
ная строка. 

Задание. Допустимы ли приведенные ниже записи конечной 
строки на языке ФОРТРАН? 


№№ позиций 


1 2 3 4 5 6 7 
1234567890123456 7890123456789. 234567890123456789012345678 9012345678901234 5678 
бу ЕМО 
г/ Е М р 


ИТОГОВЫЕ ЗАДАНИЯ 


1. Напишите арифметические операторы присвоения для вычи- 
сления значений по следующим формулам: 


| 


1 2 ТТ 22 
ВИНЕ ЕРА (1, аа) Вт рур 


а) х ТЕ 


бт=в. Къ — (ИКЕА УКК А) 


2. Напишите операторы присвоения значений следующих выска- 
зываний переменной логического типа РАМ: 
а) т<аүб = ё Мт 1.1 
б) 0—0 < 1 Лхь0 Лу<0 


3. Напишите фрагмент программы на ФОРТРАНе для выполнения 
следующих действий: 

Ввести с карт значения переменных К, 5, Т, ОПИДЕИНЕЛИНА ВЕЦЕР 
в формате Е 8.3. 


4 5—1609 : 97 


Вычислить: 


Е. . 
В2 —-5іп5 --Т.+и 
Напечатать значения переменных В, $, Т, Х в формате Е15.8. 


4. Напишите программу вычисления значения Е как функции х 
согласно формулам: 


= 


х- 20, если х<0; 

2—6, ели 0<х <10; 
Їх) = 2х 4-5, если 10<х< 19; 

4х3 — 10, если о 


для набора значений х. 

С перфокарты требуется прочесть начальное значение Х, значение 
приращения Р и конечное значение Х (ХК). 

Результаты вычислений необходимо оформить следующим образом: 

а) напечатать в середине строки заголовок таблицы: 

ВЫЧИСЛЕНИЕ ЗНАЧЕНИЙ ФУНКЦИИ Е (Х) 

6) напечатать в виде таблицы все значения Х и соответствующие 
им значения Е. А 

Напишите два варианта этой программы: 

а) используя арифметический оператор 1Е; 

б) используя логический оператор [Е. 


Глава Ш 


Переменные с индексами и оператор ЮО 


Порция 78 
Переменные с индексами 


Операторы, рассмотренные в предыдущих главах, позволяют за- 
программировать различные вычисления на ЭВМ с отдельными дан- 
ными, обработать же обширное количество вводимой информации, на- 
пример записать программу решения системы из 30-ти линейных 
уравнений, только с их помощью весьма затруднительно. Действи- 
тельно, для решения такой системы уравнений понадобилось бы 
30 х 30 = 900 различных обозначений для ее коэффициентов и 30 
для свободных членов, т. е. 930 идентификаторов, не считая обозна- 
чений для необходимых промежуточных результатов. Однако основ- 
ная трудность в таком случае состояла бы в сложности записи алго- 
ритма решения задачи (программы), поскольку при использовании 
различных обозначений для аналогичных данных весь алгоритм по- 
требовалось бы записать в «развернутом» виде, хотя действия, выпол- 
няемые над всеми коэффициентами при одном и том же неизвестном, 
аналогичны. Существенно при этом, что подобный «развернутый» 
алгоритм, предназначенный для решения системы 30 линейных алгеб- 
раических уравнений, оказывается непригодным для решения той же 
задачи с другим числом неизвестных (например, с 29 неизвестными). 
В этом разделе мы рассмотрим употребление идентификаторов пере- 
менных с индексами, именующих отдельные элементы массивов 
посредством указания их общего идентификатора массива, и индексов, 
определяющих конкретный элемент в массиве, как это и принято в 
подобных случаях в алгебре. 

Существенно при этом заметить, что в качестве индексов могут 
быть использованы не только целые константы, но и некоторые выра- 
жения, надлежащее изменение значений которых позволяет с помощью 
одной и той же переменной с индексами обратиться к любому элемен- 
ту данного массива. 

Предположим, что с помощью ЭЦВМ нам нужно проконтролиро- 
вать выпуск 10 тыс. видов продукции предприятиями некоторого 
ведомства. Для этого нужно выполнить сравнительно простое вычис- 
ление по определенной формуле, например, 


В.-Ха? «А/(7 »В—ОВТ(А--Х)) 
& 99 


с подстановкой различных значений Х для 10-ти тысяч параметров · 
изделий. Можно, разумеется, присвоить отдельные наименования 
каждой переменной, т. е. параметрам каждой детали, например, 
РТ, р2, ..., 010000 и для каждого из этих наименований записать 
операторы для вычислений и вывода результатов на печать. При этом 
мы получим программу, блок-схема которой может быть представлена 
в следующем виде (рис. 23): 


Произвести бычисления по формуле Р, 
используя б качестве переменной 21 


[ая деталь 
Напечатать результат вычислений 
Произвести бычисления ло Формуле, 
используя переменную с очередным 
Произвести вычисления по формуле Е, значением д качестве индекса 
используя ё качестве переменной 02 
2-ая деталь 


Напечатать результат дычислений 


Произвести дычисления по формуле Е, 
используя 0 качестве переменной 210000 


10000-09 
—| деталь 
Напечатать результат вычислений 


Рис. 23 Рис. 24 


Нам не представляется возможным привести полную блок-схему 
программы, в связи с чем мы прибегли в ней к многоточию. Мы ви- 
дим, что крайне неудобно присваивать индивидуальные идентифика- 
торы переменных для данных о каждой детали, так как программа 
обработки значений этих переменных, хотя и обрабатываются они ана- 
логичным образом, будет очень громоздкой. Вместо этого в языке 
ФОРТРАН вводится понятие переменных с индексами (в нашем при- 
мере с одним индексом, принимающим значения от 1 до 10000). 

В связи с необходимостью записи программ на ФОРТРАНе (как и 
на других языках программирования) в линейной форме, что вызва- 
но особенностями ввода программ и данных в ЭВМ, в ФОРТРАНе 
принята следующая форма записи индексов, отличная от общеприня- 
той в математике формы, при которой индексы записываются петитом 
(мелким шрифтом) и размещаются несколько ниже основной строки. 
Вместо этого в ФОРТРАНе индексы записываются с помощью обыч- 
ных символов, разделяются между собой запятыми, если их более 
одного, и вся совокупность индексов заключается в скобки и по. 
мещается непосредственно после идентификатора соответствующего 
массива. 


100 


Блок-схема рассмотренной программы, использующей переменную 
с индексом, может быть представлена на рис. 24. 

Как видим, сначала будет использована переменная Г (1), затем 
значение индекса І будет увеличено на 1, произойдет сравнение те- 
кущего значения индекса с граничным значением (10 000), и если ин- 
декс меньше или равен 10 000, то управление будет передано блоку 2. 
Эта процедура будет происходить до тех пор, пока не будут произве- 
дены вычисления для [ = 10 000. 

На языке ФОРТРАН соответствующую программу действий можно 
записать в виде такого фрагмента 


Е 

2 ВЕЗОГТ = р(1)ғ2.+А/(7.+В—Ѕ0ВТ(А--0(1))) 
\Е1ТЕ (2,3) ВЕЗОГТ 

3 ЕОВМАТ (Е?20.8) _ 

ДТ 

5 1Е(1—10000) 2, 2, 6 

6 ЅТОР 


ЕМ” 


В этой программе каждая отдельная величина определяется ин- 
дексом І, стоящим в скобках после идентификатора. Индекс всегда 
должен быть целым. Как мы увидим далее, индекс может быть либо 
константой, либо переменной, либо арифметическим выражением не- 
которого допустимого вида. р! 

Полный набор таких величин с индексами (в нашем примере это 

р (1), р (2), р (3), ..., р (10 000)) в ФОРТРАНе называется масси- 
вом, а каждая из них — элементом массива. Обращение к отдельным. 
элементам массива в языке ФОРТРАН осуществляется посредством 
идентификатора этого массива, за которым в круглых скобках ука- 
зываются его индексы. 

Такая простая возможность обращения к любому элементу масси- 
ва по идентификатору этого массива и значениям индексов реализу- 
ется в машинах благодаря размещению элементов массивов в ячейки 
памяти с упорядоченным множеством их адресов. 

Задание. Пусть дан массив А, состоящий из 20 элементов. 
Необходимо сформировать массив Х, элемент которого 


Х(Ј)=А (Ј)++лА (3 (п=3,1416) 


Напишите фрагмент программы решения задачи, учитывая, что 
после того, как будет определен последний элемент нового массива Х, 
нужно перейти к оператору с номером 17. 
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Порция 79 А 
Дву- и трехмерные массивы 


_ Массив, рассмотренный в примере в предыдущей порции, называ- 
ется одномерным. Для элементов таких массивов указывается только 
один индекс, записываемый в скобках носле идентификатора массива. 
Обычно в математических выражениях переменные с индексами за- 
писываются в виде: Х,, Х,, Х,. При записи таких переменных на 
ФОРТРАНе индекс необходимо поднять на уровень идентификатора 
переменной и заключить в скобки. Примером одномерного массива 
может служить последовательность координат л-мерного вектора. 

Кроме одномерных массивов в ФОРТРАНе можно использовать 
двумерные и трехмерные массивы. Двумерный массив можно пред- 
ставить в виде матрицы, состоящей из ряда равнодлинных горизон- 
тальных строк элементов или из ряда равнодлинных вертикальных 
столбцов. При этом первый из двух индексов определяет номер стро- 
ки, второй — номер столбца. Например, матрица, состоящая из двух 
строк и трех столбцов, элементы которых обозначены через ДА; }, 
ї= 1,2; ј = 1, 2, 3, представляет собой таблицу вида 


АА Аз 


21А, 2,3 


На ФОРТРАНе эту матрицу естественно представить в виде дву- 
мерного массива, например, с тем же идентификатором А; элементы 
этого массива тогда будут представлены переменными с двумя индек- 
сами: | 


А(1,1),А(2,1),А(1,9),А(9,2),А(1,3),А(9,3) 


В памяти машины элементы двумерного массива размещаются в виде 
одномерного массива в следующем порядке: за элементом с индекса- 
ми (1,1) идет элемент с индексами (2,1), затем с индексами (3,1) итак 
далее до элемента с индексами (и,1), где п — максимальное значение 
первого индекса, т. е. сначала в память заносится первый столбец 
массива. Затем аналогичным образом размещается второй, тре- 
тий столбец и т. д. вплоть до элемента (п, т), гле п — максималь- 
ное значение первого, а т — максимальное значение второго индекса. 
Другими словами, в языке ФОРТРАН элементы двухмерных массивов 
располагаются в памяти машины по столбцам. Для обозначения эле- 
мента трехмерного массива используются три индекса, например: 

М (У, К, 4), ЕХАМ (1, Ј, К) или В (2, 3, 4) 

При размещении в памяти трехмерного массива, как и в случае 
двумерного массива, первый индекс изменяется быстрее, а третий 
медленнее остальных. Индексы в дву- и. трехмерных массивах обяза- 
тельно должны отделяться друг от друга запятой. 
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Задание. Запишите на ФОРТРАНе все переменные с индек- 
сами, составляющие двумерный массив В, состоящий из трех строк и 
двух столбцов. 


Порция 80 
Приведенный индекс 


Максимальное значение индекса одномерного массива равно числу 
элементов, содержащихся в этом массиве. Для двумерных и трехмер- 
ных массивов число содержащихся в нем элементов равно произве- 
дению максимальных значений всех его индексов. 

В некоторых случаях требуется определить позицию того или ино- 
го элемента массива в упорядоченном множестве его элементов, ко- 
торые считаются, как мы знаем (см. порцию 79), упорядоченными 
так, что первым изменяется в установленных пределах самый левый 
индекс и т. д. Позиция элемента массива в упорядоченном множестве 
его элементов называется приведенным индексом этого элемента. 

Для вычисления значения приведенного индекса можно восполь- 
зоваться табл. 16, в которой приняты обозначения: 

а, б, с — индексные выражения; 
А, В, С — размеры массива по соответствующим размерностям. 


Таблица 16 
М. 
м Индекс Значение пиве. | значение приве- 
денного индекса 
1 ) (а) а А 
2 (А, В) (а, 5) а-- А. (6—1 А.В 
3 в 18}, (а, В, о а-- А- (6 —1) + А.В.С 
А.В. —1) 


Задание. 1. Чему равно максимальное значение индекса мас- 
сива А (4, 4)? 2. Что называется приведенным индексом? 


Порция 81 
Правила записи индексов 


До сих пор мы рассматривали элементы массивов, индексы которых 
являются только одной целой константой или целой переменной. 
Однако ФОРТРАН позволяет помещать в скобках в качестве индек- 
сов и некоторые арифметические выражения, например, 


А(Ј--3) 
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Это выражение А (3 - З) обозначает переменную А, индекс ко- 
торой равен текущему значению индексного выражения Ј + З. Таким 
образом, в процессе выполнения программы одна и та же переменная 
с индексами может обозначать различные элементы массива в зависи- 

` мости от текущего значения входящих в индексные выражения пере- 
менных, что весьма существенно для реализации программ, в кото- 
рых элементы массивов обрабатываются аналогичным образом. 

Естественно; индексные выражения строятся в соответствии с пра- 
вилами для построения арифметических выражений, однако некото- 
рого ограниченного вида: индексами могут быть только величины це- 
лого типа (например, запись вида А (Ј — 3) допустима, а А (У—3.00) — 
нет), принимающие положительные значения. 

Поэтому в рассмотренном выше примере Ј не может быть меньше 
четырех. В выражениях, задающих значения индексов, могут быть 
использованы операции сложения, вычитания и умножения. Напри- 
мер, мы можем использовать переменную с индексами А (3*Ј). 
В ФОРТРАНЕ разрешены только следующие виды индексных выра- 
жений: 


Виды арифметических Пример идентификатора 
выражений (допустимых в переменной с индексами 
качестве индексных выражений) 

Ј ВЕТА(Ј) 
га ВЕТА(4) 
ег ВЕТА(Ј4-4) 
Тег ВЕТА(Ј—4) 
гә) ВЕТА(4»/) 
гж) ЕЕ ВЕТА(4*Ј --6) 
7%] ВЕТА(4+]—6) 


Изменение порядка следования компонент в индексных выражениях 
недопустимо. Примеры выражений, недопустимых в качестве индекс- 
ных: 

ВЕТА (4--Ј); А (2—3); КОГ (К=*2) 

В приведенных примерах 7, ё — любые константы целого типа; Ј — 
любая переменная целого типа. 

В ФОРТРАНе не разрешается использование индексированных 
индексов. Это значит, что переменные с индексами вида А (К (1)) 
не могут быть использованы. 

Подведем итог тому, что мы узнали о переменных с индексами. 

1. Переменные с индексами служат для обозначения элементов 
одно-, дву- или трехмерных массивов; индексы заключаются в скобки 
и разделяются между собой запятыми. 

2. Индексы должны быть целыми константами, переменными цело- 
го типа или же арифметическими выражениями допустимого вида, 
значение которых есть целое число, большее нуля. 
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3. Не разрешается использование индексированных индексов. 

4. Все элементы массива должны быть одного и того же типа, по- 
мещать разнотипные элементы в одном массиве нельзя. 

Задание. Напишите примеры переменных с индексами для 
обозначения элементов трехмерного массива КЕС, причем первый 
индекс должен быть константой, второй — переменной, третий — 
арифметическим выражением наиболее общего из допустимых видов. 


Порция 82 
Правила записи индексов (продолжение) 


Для закрепления правил, изложенных в предыдущей порции, 
рассмотрим следующий пример. Предположим, что нам необходимо 
вычислить сумму СУМ попарных произведений Х,, Х,, ..., Хи 
У,, Ү,, ..., У» (скалярное произведение векторов). Конечно, можно 
было бы присвоить всем этим 40 величинам различные идентификаторы 
и вычислить необходимую сумму с помощью оператора присвоения, 
однако проще подойти к этой задаче по-другому. Будем рассматри- 
вать первые 20 величин как элементы одномерного массива с иденти- 
фикатором Х, а следующие 20 — как элементы одномерного массива 
с идентификатором У. Тогда к любой из необходимых величин можно 
обратиться посредством использования переменной с индексами Х (К) 
или У (К) и программу следует составить так, чтобы К н 
последовательно все значения от 1 до 20. 

В математике для обозначения подобной суммы принята запись 

20 


ХХ, -Ү, 
Р=1 


На языке ФОРТРАН эти вычисления можно произвести с помощью 
следующего фрагмента программы: 


СУМ=0.0 

` К=1 

26 СҮМ=СҮМ-+Х(Қ):Ү(К) 
К=К-1 


1Е(К—20)26,26,10 
10 (продолжение программы) 


Сначала мы присваиваем переменной СУМ значение 0, так что для 
вычисления всей суммы необходимо только последовательно добав- 
лять к ее значению очередное произведение; затем переменной К 
присваивается значение 1, так что, когда очередь доходит до опера- 
тора с меткой 26, из массивов Х и У выбираются первые элементы. 
Затем К увеличивается на 1 и производится проверка, все ли элементы 
массивов Х и У использованы в вычислениях. Заметим, 'если при 
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выполнении оператора ІЕ оказывается, что К = 20, необходимо еще раз 
вернуться к оператору 26 (что обеспечивается второй из меток 26, 
записанных в этом операторе), так как К было увеличено перед про- 
веркой. 

Три последние оператора в этой программе выполнятся точно 
20 раз; в результате получится сумма всех 20-ти попарных произве- 
дений элементов массивов. Ў 

Задание. 1. Некоторые из приведенных конструкций не мо- 
гут быть использованы в качестве переменных с индексами. Опреде- 
лите их и объясните ошибки: 

а) КГОВ (85) 

6) ВОК (42,2) 

в) ГК (4, 3, 2, 1) 

г) ГК (4.3, 2.1) 

д) ЈОВ (0—6) при Г = 4 

е) ЈОВ (Е, 6) 

2. Напишите фрагмент программы для вычисления суммы 25 вели- 
чин от Х, до Хз, составляющих часть хранящегося в памяти массива 
с идентификатором Х. 


Порция 83 
Оператор ОІМЕМЅІОМ 


Если в ФОРТРАН-программе используются переменные с индек- 
сами, то в ней должна содержаться и некоторая дополнительная ин- 
формация. Мы должны указать: 

1. Какие идентификаторы поставлены в соответствие массивам 
(то есть, к каким переменным необходимо обращаться с помощью 
индексов). 

2. Каков тип переменных, составляющих каждый из массивов? 

3. Сколько индексов имеет каждая из переменных? 

4. Сколько элементов содержится в каждом из массивов, т. е. 
каково максимальное значение каждого индекса? 

Ответы на. эти вопросы дает специальный оператор языка 
ФОРТРАН — оператор Р1МЕМЗЮМ, операторы спецификации или 
оператор СОММОМ. | 

Все идентификаторы переменных с индексами, встречающиеся в 
данной программной единице, должны быть упомянуты в той же про- 
граммной единице в одном из указанных операторов, а сами эти опе- 
раторы должны располагаться в программе до использования этой 
переменной в данной программной единице. 

Один оператор РІМЕМЅІОМ может содержать сведения о несколь- 
ких массивах (единственное ограничение, общее для всех операторов: 
оператор не должен содержать более 1320 символов). 


106 


В программе можно употреблять любое количество операторов 
РІМЕМ№ЅІОМ (а также СОММОМ или операторов спецификаций). 

Необходимость в указании размеров вызывается следующими об- 
стоятельствами. Вычислительная машина должна зарезервировать 
определенную часть ячеек памяти для хранения значений перемен- 
ных и констант, встречающихся при выполнении любой задачи. 

Когда машина транслирует ФОРТРАН-программу, т. е. переводит 
ее на машинный язык, она автоматически оставляет в запоминающем 
устройстве поля для хранения значений каждой новой константы и 
простой переменной (как мы отмечали, размеры этих полей стандарт- 
ны для всех величин данного типа). Для выделения памяти под мас- 
сивы знания типа входящих в них элементов недостаточно. 

Предположим, что у нас в некоторой программной единице имеется 
вещественный массив, обозначенный идентификатором АТРНА. 

Каким образом сообщить машине, сколько ячеек памяти нужно 
зарезервировать? І 

Оператор РІМЕМ№ЅІОМ как раз и сообщает машине, какой объем 
памяти необходимо зарезервировать, чтобы хранить данный массив. 
(Заметим, что ту же информацию можно задавать и в операторах 
СОММОМ и в операторах спецификации типа). 

Формат оператора О: МЕМЗОМ следующий: 


РІМЕМЅІОМ (список описателей) 


Элементами (списка описателей) являются описатели массивов, пред- 
ставляющие собой идентификаторы массивов, за которыми следуют 
в скобках размерности. Последние представляют собой константы 
без знака или идентификаторы переменных целого типа и определя- 
ют соответственно максимальное значение каждого индекса, а их ко- 
личество в скобках определяет размерность массива. Заметим, что раз- 
мерности массивов, задаваемые в главной программе, не могут ука- 
зываться идентификаторами, а должны быть заданы в любом случае 
только целыми положительными константами. Размерности массивов 
в других программных единицах (процедурах) могут задаваться кон- 
стантами или идентификаторами переменных целого типа. 
Задание. Какую информацию содержит оператор ОІМЕМЅІОМ? 


Порция 84 
Оператор РІМЕМЅІОМ (продолжение) 


- Допустим, что массив АРНА является двумерным и состоит из 
шести столбцов и пяти строчек. Тогда соответствующий оператор 
РІМЕМЅІОМ, который должен появиться в записи программы до появ- 
ления какой-либо другой ссылки на идентификатор АРНА (если 
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размеры массива определяются этим оператором), должен быть запи- 
сан так: 


ГЛМЕМЗЮМ АГРНА (5,6) 


При распределении памяти для массива АІРНА будет предусмот- 
рено 30 ячеек (5 Х 6). 
Если в программе содержится оператор 


ГЛМЕМ$ЮОМ УОГТ5(9,30), АМРЗ(5,30) №ОРЕЗ(7,30) 


то при распределении памяти будут отведены 60 ячеек для массива 
УОГТ$ (2 х 30), 150 ячеек для массива АМР5 (5 х 30), 210 ячеек 
для массива МОШЕ$З (7 х 30), т. е. всего 


60 + 150 - 210 = 420 ячеек. 


При составлении программы программист должен предусматри- 
вать обращение к таким элементам массивов, индексы которых не пре- 
вышают максимальных, указанных в операторе РІМЕМ№ЅІОМ (если 
размеры определяются этим оператором), и не становятся равными 
нулю или отрицательными. Оператор ОІМЕМ№ЅІОМ принадлежит к 
числу операторов, описывающих исходные данные, т.е. к невыполняе- 
мым операторам; он только содержит информацию, используемую 
транслятором для распределения памяти под массивы, но сам по себе 
не определяет никаких действий. 

Напоминаем еще раз, что операторам, включающим обращение 
к массивам или их отдельным элементам (т. е. содержащим в своей 
записи идентификаторы массивов или переменные с индексами), в за- 
писи данной программной единицы должны предшествовать описания 
этих массивов, задаваемые оператором РІМЕМЅІОМ, СОММОМ или 
операторами спецификаций. 

Оператор ОІМЕМ№МЅІОМ“ может использоваться с операторами КЕАР 
и РОВ МАТ при описании и вводе исходных данных для ФОРТРАН- 
программ. 

Давайте, например, рассмотрим оператор КЕАО, который ис- 
пользуется для ввода информации в некоторой задаче. Операторы 
рІМЕМЅІОМ, КЕАР и РҒОКМАТ могут иметь вид: 


Р1МЕМЗЮМ Вб(9),С(9,9),Х(9) 
КЕАР (1,6)С(1,1),С(1,2),С(2,1),С(2,2),В(1),В(2),Х(1), Х(2) 
6 РОКМАТ (8Е10.0) 


Заметим, что и здесь, как и в случае простых переменных, отсутствие 
спецификации типа переменных массивов В, С, ·Х означает, что их 
тип определяется неявно, т. е. в нашем случае все эти массивы содер- 
жат переменные вещественного типа. Когда в операторе КЕАР” пере- 
числяются все элементы массива, их можно вводить в произвольной 
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последовательности. Например, программисту может показаться бо- 
лее удобным следующий порядок ввода: 


ВЕАТ(1,6)Х(1),Х(2),С(1,1),С(1,2),В(1),С(2,1),С(2,2),В(2) 


Естественно, что в этом случае на перфокарте числа должны быть 
отперфорированы в том же порядке, в каком они перечислены в опера- 
торе ВЕАР. 

Задание. 1. В приведенных ниже записях элементов массивов 
значение каждого из индексов является максимальным. 


А(6,17), САП, 4),2(3),РАТЕ(6,2,2) 


Напишите соответствующий оператор О МЕМ$1ОМ для описания 
массивов с указанными идентификаторами. 

2. Укажите ошибки в двух приведенных ниже записях операторов 
РІМЕМЅІОМ: 

а) РІМЕМЅІОМ А(2,2)Е(8)3(16) 

6) РЕМЕМЗОМ С(30) 


Порция 85 
Оператор РІМЕМЅІОМ (продолжение) 


Иногда бывает нужно ввести или вывести все элементы массива, 
не перечисляя их по одному. В таких случаях в списке элементов 
оператора ввода или вывода следует указать только идентификатор 
массива, не указывая индексов; при этом будет введен или выведен 
весь массив. 

В следующем примере: 


РІМЕМЅІОМ В(2),С(9,9),Х(9) 
ВЕАР(1,6)В,С,Х 


будут целиком введены массивы В, Си Х. 

При этом необходимо соблюдать следующие правила, строго опре- 
деляющие последовательность ввода элементов массива: 

Правило 1. Одномерный массив вводится, начиная с элемента, 
имеющего индекс 1, и кончая элементом с максимальным индексом, 
указанным в его описании в операторе ОІМЕМЅІОМ. 

Правило 2. Для двумерного массива ввод осуществляется так, 
что при каждом фиксированном значении второго индекса первый про- 
бегает все значения от 1 до максимального, т. е. первый индекс изме- 


`.няется быстрее. Поэтому операторы 


РІМЕМЅІОМ К(2,3) 
ВЕАО_(2,6)В 
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определяют следующий порядок присвоения значений элементам мас- 
сива В: 

К(1,1),К(2,1),К(1,2),К(2,2),К(1,3),К(2,3) 
«3 так и следует раслолагать исходные данные на перфокарте. 
Таким образом, элементы двухмерного массива перечисляются по 
столбцам, 

Правило 3, Для случая трехмерного массива также действует 
правило, согласно которому первый индекс изменяется быстрее всех, 
а последний — медленнее всех. 

Задание, 1. В каждую из программных единиц, которые нуж- 
но составить при выполнении этих заданий, необходимо включить 
оператор МЕМОК определяющий количество элементов в задан- 
ных массивах! 

а) Координаты некоторой точки в пространстве заданы тремя 
элементами одномерного массива Х. (Обратите внимание на различ- 
вый характер понятия количества измерений: здесь элементы одномер- 
оѓо массива используются для задания координат точки в трехмер- 
ом пространстве), Напишите оператор присвоения, с помощью ко- 

рого можно было бы вычислить расстояние точки от начала коор- 
динат. (Это расстояние равно корню квадратному из суммы квадратов 
Ќӧординат точки). 

б) Если координаты вектора в пространстве равны Х,, Х, и Х,, 

то его направляющие косинусы можно вычислить по следующим фор- 


мулам: 


Уя+а-+з 
СВ = А; 

аы 
СС = . 

ПЕЧ та 


Напишите фрагмент программы для вычисления направляющих 
косинусов. 


Порция 86 
Оператор РІМЕМЅІОМ (продолжение) 


Задание. 1. Сформулируйте задачу, которая может быть ре- 
шена с помощью приведенного ниже фрагмента программы: 


РІМЕМЅІОМ А(100) 
.0 


1=0 
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10 1=1--1 
ІЕ(А(Т).ОТ.0.)СО ТО 15 
СО ТО 20 

15 5=5+-А(І) 

20 ТЕ(Г.ГЕ №@О ТО 10 
(продолжение программы) 


2. Упростите по возможности приведенный выше фрагмент, не ис- 
кажая смысла поставленной задачи. 

3. Напишите фрагмент программы для вычисления суммы элемен- 
тов матрицы А;; 1 = 1, 2, ..., и, ј = 1, 2, ..., п), лежащих выше 
главной диагонали, включая элементы диагонали. Искомая сумма 
находится по следующей формуле: 


п 
$1 = У Ў А; 
| 1=1 /= 
Составьте два варианта указанного фрагмента программы: 
а) с использованием логического оператора 1Е; 
б) ё использованием арифметического оператора 1Е. 


Порция 87 
Оператор РО 


Оператор РО является одним из наиболее мощных средств языка 
ФОРТРАН. Этот оператор позволяет в удобной форме описывать цик- 
лические повторения некоторого участка программы, называемого об- 
ластью цикла; он особенно удобен в случае, когда при каждом новом 
прохождении этого участка значение некоторой целой переменной 
изменяется, возрастая каждый раз на некоторое положительное чис- 
ло, т. е. принимает значения членов арифметической прогрессии. 
Переменные с индексами и оператор ОО облегчают программирование 
вычислений, связанных с массивами, элементы которых обрабатываю\- 
ся одной и той же последовательностью операций. 

Для иллюстрации применения оператора ОО рассмотрим задачу 
о нахождении суммы квадратов двадцати чисел. Для вычисления этой 
суммы можно воспользоваться такой программой: 


РІМЕМЅІОМ Х(20) 


СУММА==0.0 
ј=1 

2 СУММА = СУММА 4-Х(Ј)+»9 
ды 


1Е(7—20)2,2,1 
1 (продолжение программы) 
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Применяя оператор ОО, эту сумму можно вычислить с помощью 
следующей более короткой программы: 


РІМЕМЅІОМ Х(20) 
СУММА = 0.0 
РО 18 Ј=1,20 
18 СУММА =СУММА--Х(Л +2 
28 (продолжение программы) 


В этом фрагменте оператор ОМЕМЗОМ устанавливает, что пере- 
менная Х имеет один индекс, максимальное значение которого рав- 
но 20. Сначала мы присваиваем переменной СУММА исходное значе- 
ние, равное нулю, а затем выполняем оператор ОО, в котором указана 
метка оператора 18. Последнее означает, что операторы программы 
после РО до оператора с меткой 18 включительно будут выполняться 
многократно. В нашем случае после РО стоит всего один оператор — 
оператор с меткой 18, который и будет повторно выполняться. Снача- 
ла этот оператор выполняется при Ј = 1, так что на этот раз к пере- 


о 2 
менной СУММА прибавляется Хү. Затем значение Ј увеличивается 
на 1 и оператор с меткой 18 выполняется теперь уже при Ј = 2, так что 


к предыдущему значению переменной СУММА прибавляется е. 
Этот процесс будет продолжаться до тех пор, пока Ј не достигнет зна- 
чения 20, указанного в операторе ОО, после чего значение переменной 
СУММА окажется равным сумме квадратов всех двадцати чисел. По- 
сле этого управление передается оператору, следующему за операто- 
ром с меткой 18, т. е. оператору с меткой 28. 

Имеется два формата оператора ОО: 


1) Р0Оиі = ть, т, (использован в нашем примере); 
ОО ЕО 


здесь п — метка последнего, называемого конечным, оператора облас- 
ти цикла — циклически выполняемого участка программы (в нашем 
примере и = 18); конечный оператор в записи программы должен по- 
мещаться после соответствующего оператора ОО; 

і — простая переменная целого типа, называемая «управляющей пе- 
ременной», или параметром цикла; 

т, т», тз — простые переменные целого типа, принимающие толь- 
ко положительные значения, или целые положительные константы. 

т — значение, которое принимает управляющая переменная в на- 
чале циклического процесса (т, = 1 в нашем примере), т. е. перед 
первым выполнением цикла; это значение называется начальным зна- 
чением параметра цикла; 

т. — «конечное значение» управляющей переменной, называемое 
конечным значением параметра цикла; т; всегда должно быть не боль- 
ше ть. Если т, будет меньше т, то это считается ошибкой. 
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Область оператора РО может содержать в себе операторы перехода, 
передающие управление как на операторы, содержащиеся в ней, так и 
на внешние, однако находящиеся в той же программной единице. 
Последнее может привести к тому, что число повторений выполнения 
операторов, составляющих область цикла, может оказаться меньшим 
максимального, равного’ 


вајн 


где [а] — целая часть числа а. 

Циклический процесс прекращается при превышении значения 
управляющей переменной ее конечного значения. 

Во второй модификации оператора РО смысл п, і, т: и т. тот же, 
что и в первой модификации, а т.— это приращение параметра цик- 
ла, на которое увеличивается значение { каждый раз при очередном 
повторении цикла. Приращение может быть задано простой перемен- 
ной целого типа или константой целого типа. 

Так же как т, и т», значение приращения т. не может быть отри- 
цательным или равным нулю. Если значение т. не задано, то подра- 
зумевается, что оно равно 1 (как в рассмотренном примере). Действие 
оператора РО состоит в следующем: при і = т; выполняются опера- 
торы, начиная с оператора, непосредственно следующего за операто- 
ром ВО, до оператора с меткой п, указанной в операторе ОО, вклю- 
чительно. 

Затем і увеличивается на величину т. и последовательность вычис- 
лений повторяется с оператора, непосредственно следующего в запи- 
си программы за оператором РО. Повторные выполнения операторов 
цикла продолжаются до тех пор, пока значение і не превысит значе- 
ние і = т, (если выход из области не будет совершен посредством ка- 
кого-либо оператора перехода). После этого управление передается 
первому выполняемому оператору, следующему в записи программы 
за оператором с меткой п. 

Задание. Два одномерных массива А и В содержат каждый 
по 50 элементов. Напишите фрагмент программы для вычисления 
суммы 


50 


СУММА = ра А, · Ву 


і=1 


используя оператор РО и без него. 
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Порция 88 
Оператор ВО (продолжение) 


Вложенные циклы 


Внутри области цикла оператора РО можно размещать другие 
операторы цикла. Такое размещение оператора РО внутри другого 
обычно называется организацией вложенных операторов РО. 

Чтобы лучше понять действие вложенных операторов РО, давайте 
рассмотрим задачу транспонирования 1 матрицы. Предположим, что 
нам дана матрица, имеющая 10 строк и 12 столбцов, Требуется ее 
транспонировать, Если обозначить первоначаль- 
ный матричный массив через АВК, а новый че- 
рез ВВК, то для получения, например, элемен- 
та матрицы ВЕК, стоящего в третьей строке и 
четвертом столбце, следует записать оператор: 


ВКК(3,4) =АВК(4,3) 


Последняя запись означает, что элемент, стоящий 
на пересечении 3-й строки и 4-го столбца новой 
матрицы, равен элементу исходной матрицы АКК, 
располагающемуся на пересечении 4-й строки и 
3-го столбца. Поэтому в общем случае задача 
сводится к выполнению оператора присвоения 
ВВК (К,Ј) = АВВ (Ј,Қ) для значений Ј и К, 
изменяющихся от 1 до 10 и от 1 до 12 соответ- 
ственно. Блок-схема алгоритма решения этой за- 
дачи представлена на рис. 25. 

Давайте рассмотрим внимательно эту блок- 
схему. Сначала мы полагаем Ј = 1, затем К = 1, 
а потом переходим непосредственно к выполне- 

Рис. 25 нию оператора: 
ВЕВ(К,Ј) = АВЕ(Ј,К) 

Так как во время первого цикла Ј и К равны единице, то мы фак- 
тически присваиваем значение АБК (1,1) переменной ВВК (1,1). 
Далее К увеличивается на единицу (теперь значение К равно 2). 
Так как на этом этапе К < 12, возвращаемся к началу внутреннего 
цикла для продолжения вычислений, но на этот раз выполняется опе- 


ратор: 
ВКК(2,1)=АВК(1,2) 


Этот процесс продолжается до тех пор, пока значение К не превысит 
висло 12; тогда осуществляется возврат к началу внешнего цикла по- 


ВКЕ(К,Т)=АКК(І,К) 


Убеличить К на единицу 


К больше 12? 
Да 


Убеличить 1 на единицу 


1 больше 10? 


1 Под транспонированием понимается процесс образования новой матрицы, 
строки которой являются столбцами исходной матрицы. 
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сле увеличения Ј наединицу. Поэтому новое значение Ј будет равно 2. 
В то же время К вновь присваивается первоначальное значение, рав- 
ное единице, и таким образом выполняется оператор: 


ВВК(1,2) =АВВ(2,1) 


затем производятся действия по внутреннему циклу, которые повто- 
ряются до тех пор, пока К не достигнет значения 12. Это означает, 
что фактически оператор присвоения ВРВ (К,Ј) = АВВ (Ј,Қ) вы- 
полняется 120 раз (один раз для каж- 
дого элемента матрицы, общее количе- 
ство которых равняется числу строк, 
умноженному на число столбцов). 


5 

5 

У 

а - 

Ниже представлен эквивалент при- Е 
веденной блок-схемы на языке ЕЕ 
ФОРТРАН, использующий оператор РО: 55 
БО 1 21,10 =) 

ро 1 к= 1,12 Е 


1 ВЕВ(К,Ј) =АВК(Ј,К) 


Последняя запись гораздо компак- 
тнее программы, использующей два опе- Рис. 26 
ратора ТЕ. 

Необходимо помнить, что самый внутренний цикл организуется 
последним, а выполнение его завершается всегда первым. 

Идея такой организации распространяется также и на случай 
трех, четырех или большего количества циклов, которые могут быть 
вложены один в другой. 

При организации вложенных операторов РО необходимо соблю- 
дать следующее правило: вложенные циклы должны располагаться 
таким образом, чтобы отдельные циклы «перекрывались» (но не пере- 
секались). На рис. 26 схематически представлены примеры `допусти- 
мой и недопустимой организации вложенных циклов. 

Недопустимую запись вложённых циклов иллюстрирует следую- 
щий фрагмент ФОРТРАН-программы: 


— 2059-19 
АТ.) = С++ К — ВУ ЩЕ, 2) 
ао В 
[| 29 ЅТВІМ = ЅТВІМ - 1.0 
[30 ВЕЗ (К) = 0.0 


В этом примере имеет место пересечение двух циклов. Такая совокуп- 
ность операторов РО недопустима, что обычно отмечается трансля- 
торами. 

Задание. Двумерный массив А содержит 15 строчек и 15 столб- 
цов. Одномерный массив Х содержит 15 элементов. Вычислите 15 
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Правильно Меправильно 


элементов одномерного массива В по формуле (умножение матрицы 
на вектор): 


15 
с о г, 0080 6. 


= 


Порция 89 
Оператор ОО (продолжение) 


Правила использования оператора ВО 


Оператор ПО позволяет строить весьма компактные програм- 
мы, но при его использовании необходимо соблюдать определенные 
правила: 

Правило 1. Конечный оператор цикла в записи программы должен 
следовать после оператора РО и находиться с ним в одной и той же 
программной единице. Конечный оператор не может быть никаким 
оператором перехода СО ТО всех типов, оператором КЕТОКМ, ЅТОР, 
РАОЗЕ, РО, арифметическим оператором ІЕ, а также логическим опе- 
ратором ІЕ, содержащим перечисленные выше операторы управления. 

Правило 2. Начальное значение параметра цикла не должно быть 
большим конечного его значения. После выхода из области оператора 
РО в результате выполнения оператора СО ТО или арифметического 
оператора ІЕ параметр цикла остается определенным и его значение 
равно последнему присвоенному ему значению. 

Правило 3. Никакой оператор в области действия рО не дол- 
жен каким-либо образом изменять значения переменных, указанных 
в этом операторе и определяющих значения управляющей переменной; 
это значит, внутри области действия оператора РО недопустимо при- 
своение значений переменным ї, 1, т, т; посредством операторов 
присвоения или ввода. Например, недопустима следующая организа- 
ция цикла ОО: 


ро? К=1,М,2 

А (К) = 1.7*5ІМ(Е(К)) 
Кк=К+! 
2м=М—3 


так как К и М (переменные, указанные в операторе РО) не могут из- 
м>няться в его области. Никаких других ограничений на указанные 
переменные не накладывается. 

Правило 4. Передача управления во внутрь области оператора РО 
из какого-либо оператора, лежащего вне этой области, запрещена. 

Это правило запрещает также передачу управления из области 
действия внешнего ОО в области действия внутренних ОО, но оно, 
однако, не запрещает передачу управления из области действия внут- 
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реннего ОО в область действия внешнего ПО. При этом управление 
передается от оператора, лежашего внутри области действия внешне- 
го ОО, другому оператору, также лежащему внутри нее. Схематиче- 
ски это правило проиллюстрировано на рис. 27. Квадратными скоб- 


ками на рисунке обозначены области = 


действия операторов РО, стрелки изоб- 
ражают передачи управления. 
Единственным исключением из пра- 
вила, запрещающего передачу управле- 
ния извне внутрь области действия опе- 
ратора рО, является следующее: в ходе 
выполнения самого внутреннего из опе- 
раторов ОО разрешена передача управ- 
ления в какое-либо место программы 
для вычислений, не изменяющих значе- 
ний ни одного из имеющих силу в этой 
области параметров оператора ПО, с 
последующим возвратом в область дей- | 
ствия того же оператора РО. Ограниче- у 
Допустимо Недолустимо 
врата, можно сформулировать следую- 
щим образом: аит 
между точками выхода и возврата не может находиться оператор, 
являющийся конечным в области действия оператора РО. 
Задание. Дана матрица, имеющая десять строк и десять столб- 
цов. Напишите совокупность операторов, обеспечивающих транспо- 
нирование этой матрицы, после чего предусмотрите возведение в квад- 
рат каждого элемента транспонированной матрицы. Для обозначения 
исходной матрицы используйте идентификатор М1, для транспониро- 
ванной — МКЕ$; тот же идентификатор МКЕ$ используйте для эле- 
ментов матрицы, равных квадрату элементов транспонированной. 


ние, налагаемое на точки выхода и воз- 


Порция 90 
Оператор РО (продолжение) 


Область действия оператора РО 


С каждым оператором РО связывается некоторая определенная 
область программы, которая представляет собой последовательность 
следующих за ним выполняемых операторов, конечным оператором 
которой является оператор с меткой, указанной в этом операторе по- 
сле служебного слова РО. Если область некоторого оператора РО вклю- 
чает другой оператор ОО, то область действия последнего должна быть 
полностью вложенной в область действия первого из них или иметь 
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с ним общий конечный оператор (т. е. в случае вложенных циклов до- 
пускается совпадение нижних границ их областей). 

Допустимая глубина вложенности операторов цикла ничем не ог- 
раничена (она может ограничиваться в отдельных реализациях языка), 
однако для любых операторов цикла, содержащихся внутри областей 
других операторов цикла, встретившийся конечный оператор любого 
из них должен следовать за конечными операторами всех внутренних 
по отношению к нему операторов цикла или совпадать с ними. 

После выполнения конечного оператора некоторого цикла получает 
соответствующее приращение параметр самого внутреннего оператора 
РО, ссылающегося на этот конечный оператор. 

Если при этом значение изменившегося параметра не превышает 
его конечного значения, то повторяется выполнение операторов, со- 
ставляющих область соответствующего оператора ПО (т. е. после опе- 
ратора рО, параметр которого получил приращение). После того 
как параметр цикла получает значение, превышающее его граничное 
значение, соответствующий оператор цикла считается завершенным. 
В этом случае значение его параметра становится неопределенным. 

Если на данный конечный оператор ссылаются несколько’ опера- 
торов ОО, то после его выполнения получает приращение параметр 
ближайшего внешнего к завершенному оператору; действия повторя- 
ются до тех пор, пока все операторы ОО, ссылающиеся на данный ко- 
нечный оператор, не будут завершены; после их завершения выпол- 
няется оператор, следующий за этим конечным оператором. 

Область действия оператора ЮО может быть расширена в том слу- 
чае, если выполняются оба следующие условия: 

1. Внутри области самого внутреннего оператора рО (назовем 
ее область-1) имеются операторы СО ТО или арифметические опера- 
торы ІЕ, которые могут передать управление во внешнюю область 
РО (назовем ее область-2) по отношению к области самого внешнего 
из объемлющих область-1 операторов ОО. 

2. В области-2 существуют операторы СО ТО или арифметические 
операторы ІЕ, которые передают управление в область-1. 

При выполнении этих условий расширенной областью оператора 
РО считается последовательность всех операторов, которые могут быть 
выполнены между всеми парами операторов управления, указанными 
в правилах 1 и 2. 

Существенно, что никакой оператор СО ТО или арифметический 
оператор ІЕ не может передавать управление в область действия опе- 
ратора ОО в том случае, когда он не выполняется как часть расширен- 
ной области. 

Пример использования расширенной области оператора РО при- 
веден в порции 93 (пример 1). к 

В процессе выполнения области цикла допускается обращение 
к процедурам (о которых будет речь идти далее). При этом считается, 


118 


что все действия, связанные с выполнением любой процедуры, вклю- 
чаются (временно) в данную область цикла. 

Если некоторый оператор является конечным оператором несколь- 
ких областей операторов ОО (более чем одного), то метка этого опе- 
ратора может быть использована в операторах СО ТО или арифме- 
тических операторах ІЕ только в том случае, когда эти операторы 
встречаются внутри самого внутреннего оператора РО, ссылающегося 
на данный конечный оператор. 

Задание. 1. Какова допустимая глубина вложенности опера- 
торов цикла? 

2. Могут ли несколько операторов РО ссылаться на один конеч- 
ный оператор? 

3. При каких условиях область действия оператора РО может быть 
расширена? 


Порция 91 
Оператор РО (продолжение) 


Завершение цикла РО 


Для завершения цикла ОО руководствуются правилом, заключаю- 
щимся в том, что конечный оператор области любого оператора цикла 
должен быть оператором ФОРТРАНа, не вызывающим передачи уп- 
равления. Недопустима, например, запись вида: 


ро 71 = 1,30 
А(Г)=В(Е.-Е2)+С(Е.) 
то ТО 8 


Вычислительная машина выполнит цикл при Г, = 1, получив значение 
А (1), а затем перейдет к выполнению оператора с меткой 7, который 
указывает на передачу управления оператору с меткой 8, находяще- 
муся где-либо в программе (в данной программной единице). Но ведь 
согласно определению оператора рО при выполнении его конечного 
оператора параметр цикла Г. должен получить приращение и цикл 
должен повториться. Поэтому транслятор должен указать на ошибку. 
Но иногда все-таки бывает необходимо поместить некоторый оператор 
управления СО ТО в конце области цикла РО. Например, нужно по- 
местить оператор СО ТО по вычислению в конце цикла с тем, чтобы 
можно было выйти из этого цикла несколько ранее, если выполнятся 
определенные условия. При этом вычисляемый оператор СО ТО дол- 
жен быть последним выполняемым оператором в цикле РО. Правила 
написания ФОРТРАН-программы требуют при этом применения спе- 
циального. оператора СОМТІМЏОЕ, который будет рассмотрен в сле- 
дующей порции. | 

З а дание. В чем заключается правило завершения операто- 
ра ОО? 
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Порция 92 
Оператор СОМТІМОЕ 


Оператору СОМТІМОЕ в рабочей программе не соответствуют 
никакие действия. Он используется в качестве конечного в области 
оператора РО или же в любой ситуации, когда требуется пометить 
оператор, не выполняющий фактически никаких действий. Оператор 
СОМТІМОЕ имеет следующий формат: 


п СОМТІМОЕ 


Здесь п — метка, присвоенная оператору СОМТІМОЕ. 

Обращаем Ваше внимание на то, что последним оператором области 
`РО может быть логический оператор ПЕ, который в этом случае не 
должен содержать операторов управления. Например, допускается 
следующий цикл ОО: 


2051=1,30 
5 ТЕ (А(1).М№Е.О.)А(1)=0.0 


Этот цикл эквивалентен следующему 


ро 5 11,30 
ТЕ (А(1))1,5,1 
1-А(10)—0.0 
5 СОМТІМОЕ 


Таким образом, в случае истинности логического выражения вы- 
полняется оператор, указанный в логическом операторе ТЕ. Если ло- 
‚гическое выражение ложно, то этот оператор ТЕ выполняется как опе- 
ратор СОМТТМУЕ. И в том и в другом случаях цикл возобновляется 
под управлением І. 

Рассмотрим теперь следующие примеры: 

Пример. 

Необходимо составить фрагмент программы, определяющий мини- 
мальный элемент АМПМ массива А (содержащего М элементов) и его 
порядковый номер К в массиве. Если минимальных элементов в мас- 
сиве несколько, требуется определить из них первый по порядку. · · 

Для решения поставленной задачи положим вначале 


АМІМ=А(1), К=1 


Далее, просматривая все остальные элементы от второго до М-го, бу- 
дем сравнивать их с АМІМ. Если очередной элемент А (1) окажется 
меньше АМІМ, то присвоим его значение переменной АМІМ, а зна- 
чение его индекса 1 — переменной К; в результате получим искомые 


значения: 
АМІМ = А(1) 
К=1 
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_20201=2,М 
ІЕ(АМІМ — А(1))20,20,10 
10 АМІМ = А(1) 
=1 


== 
20 СОМТТМОЕ 

Пример 2. 

Пусть дан массив Г, целых положительных чисел. Требуется найти 
сумму 1.5 всех четных чисел, входящих в этот массив, и их количество 
ІК. Массив 1, содержит МВ чисел. 

Для определения того, является ли данный элемент Г. (1) четным 
или нет, включим в программу следующий оператор присвоения: 


11=14(01)—141)/2:2-4-1 
Учитывая особенность выполнения операции деления для целых 
(см. порцию 22), легко заметить, что 
11=2, если 11) — нечетное число, 
11=1, если Г(Г) — четное число. 


Фрагмент программы для решения поставленной задачи может 
быть представлен в виде: 


[$ = 0 
ІК = 0 
рО 5 1=1,МВ 


11=1(1)—1(1)/22--1` 
СО ТО (10,5), 11 
10 Т5=101)-215 
1К=1К+1 
5 СОМТІЧОЕ 
7 (продолжение программы) 


Переставив местами в списке меток оператора СО ТО метки 5 и 10, 
получим фрагмент программы для вычисления суммы |5 нечетных 
членов массива и их числа ІК. 

Заменив в списке меток того же оператора СО ТО первую метку 5 
на метку 7, получим программу для вычисления суммы 15 первых 
четных членов массива І, до первого нечетного члена и их числа ІК. 

Заметим, что в последнем случае оператор СОМТІМОЕ может быть 
опущен при условии, что его метка 5 будет перенесена к предыдущему 
оператору присвоения. 

Задание. 1. Сформулируйте задачу, решаемую данным фраг- 
ментом программы: і 


51=0.0 — 
РО 51=1,М 
РО 5Ј=1,№ 


5 $1=$1-А(1,1) 
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2. Ниже приведены фрагменты программ. Определите, какие из 
них эквивалентны фрагменту, приведенному в задании 1, какие со- 
держат ошибки и в чем эти ошибки заключаются. 


Ни 5-00 6) 51=0.0 
ЮО) и М ро 5 К=1М 
РО 6 Ј=1М ро 6 Ј=1,№ 
5 51—51 +-А(К,Ј) 6 51=51-+-А(К, Л 
6 СОМТМОЕ 5 СОМТМОЕ 
в 91-00 г) 951=0.0 
ВОБ Т0 ро 5 К=ЬМ 
1000) 0 11101 ро 6 К=1,№ 
6 51=514+-А(1,7 $181 -+-А(КЏ) 
5 СОМТІМОЕ 5 СОМТІМОЕ 
6 СОМТІМОЕ 
Порция 93 


Примеры использования оператора рО 


Пример 1. 

При рассмотрении этого фрагмента предполагается, что заданы 
два массива А (10), В (30). Выполнение этого фрагмента состоит в 
вычислении и выводе (по мере вычисления) в указанном порядке сле- 
дующих величин: 


10 
1) $, = х А, - В, 
і=1 


2) $, = 51 
3) $: = 5.15 
0) 5. =5:-2 17 


5). $5 = 5: + 8 


| 10 
6) Зы = 2 Ар. Внь Е... 


9 
Т) 825 = (А 85 Вз) · Вз + х А; - Во — (Аю — Вэ) · Взо 


`° Вычисление и вывод на печать значений $, $7, ..., 924 по формуле 
6) осуществляется в цикле. Далее осуществляется выход в расширен- 
ную область, где производится вычисление необходимого скалярного 
произведения (суммы попарных произведений). При этом в начале ра- 
боты данного фрагмента производится вычисление по формуле 1) 
с помощью тех же операторов, однако не рассматриваемых в качестве 
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операторов, принадлежащих расширенной области оператора цикла. 
Пример имеет иллюстративный характер и показывает, что понятие 
расширенной области оператора цикла является динамическим: об- 
ласть оператора цикла расширяется на время выполнения этого опера- 
тора при соблюдении указанных ранее условий 1 и 2 (см. порцию 90). 


Р1МЕМЗТОМ А(10),В(30),С(4) 
АЅ510№ 5 ТО М 
1.==0 
8 $=0.0 
ро 11=1,10 
12== 1-1, 
$=$-НА(1)*В(19) 
МЕТТЕ (3,9)5 
РОКМАТ (Е10.4) 
ВО ТО М, (5,6,7) 
5 АЅ516М 6 ТО М 
С()=$+=5 
с@)=С(1)-1.5 
С(3)=С(@)--1.7 
С(4) =С(2) +-С(3)»о 
МЕТТЕ (3,2)С 
ро 6 К=1,19 


© „= 


6 СОМТІМОЕ 
А(1)=А(1)--В(30) 
А(10)=А(10)—В(30) 
1=1+-1 
А5516М 7 ТО М 
СО ТО 8 

7 (продолжение программы). 


Обращаем Ваше внимание на то, что нами введен массив С (4), 
что позволило, накопив в нем значения 92, $, 54, 95, осуществить вы- 
дачу этих значений одним оператором вывода. Кроме того, полезно 
заметить, что переменная Г дублирует значения параметра второго 
оператора цикла К. Однако эта переменная в дальнейшем, после за- 
вершения второго оператора цикла, нами используется для вычисле- 
ния последнего из вычисляемых значений 5,5. Тот же результат будет 
достигнут, если мы откажемся от этой переменной [., соответственно 
заменив ее переменной К и выбросив из области второго оператора 
цикла оператор .=1--1. Однако в таком случае перед последним опе- 
ратором А$$1@М нам понадобится оператор 1.=1.4-1 заменить на 
оператор 1.=20, обеспечивающий возможность использования первого 
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оператора цикла для получения последнего из вычисляемых значе- 
ний. В связи с изложенным приводим второй вариант фрагмента про- 
граммы, решающего поставленную задачу: 


Р1МЕМ$1ОМ А(10),В(30),С(4) 


П=0 

8 $=0.0 
ро 11=1,10 
12=И-Н1 


л в н 


5=$-+А(1)*В(19) 
\Е1ТЕ (3,9)5 
ЕОБМАТ (Е10.4) 
СО ТО М, (5,6,7) 
А$$1СМ 6 ТОМ 
С(1)=5*5 
С(9)=С(1)--1.5 
С(3)=С(9)--1.7 
Сі4) =С(9) --С(3)+ 


‚ МТЕ (8,2)С 


206 = 119 
СО ТО 8 
6 СОМТІМОЕ 


А(1)=А(1)--В(30) 
А(10)=А(10)—В(30) 
11—90 

АЅ51аМ 7 ТО М 
СО ТО 8 


7 (продолжение программы) 

Пример 2. 

Для того чтобы у Вас не сложилось впечатление, что оператор РО 
используется только для обработки данных, входящих в массивы 
(т. е. переменных с индексами), рассмотрим пример решения алгеб- 
раических, или трансцендентных уравнений 


Ро) =0 


методом итераций. . 
Метод итераций заключается в следующем. Исходное уравнение 
представляется в равносильной форме вида: 


х= ф(х). 


Затем выбирается некоторое значение х = ж в качестве нулевого при- 
ближения; последующие приближения вычисляются по формулам: 
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= Ху = (%0), Хх. = ф(х), ... 


или в общем виде: 
Ха = Фф (х,) (п = 0, т о) 


Процесс продолжается до тех пор, пока не будет достигнута задан- 


ная точность: | ханы — х, < ЁРЅ (достаточным условием сходи- 
мости процесса является | Ф’ (х) | < [< 1 для х в окрестности точки 
х). 

0 


При этом требуется подсчитать число итераций [ и выдать его, 
наряду с найденным корнем Х, на печать. Число итераций І ограни- 
чено максимальным числом № = 500; если при выполнении № итераций 
условие | х1 — х |< ЕРЗ оказывается невыполненным, требуется 
выдать текст: 


МЕТОД НЕПРИМЕНИМ 


Поставленная задача может быть решена с помощью следующей 
программы: 


(Ввод Х1,ЕР$) (ХІ — начальное приближение) 

РО 6 1= 1,500 

Х0=Х1 

ХІ = (арифметическое выражение, определяющее значение 


Ф (х,)) 
ІЕ(АВ5(Х 1—Х0) ІТ.ЕР5)СО ТО? 
6 СОМТИМОЕ 
М/КТТЕ (1,3) 
3 ЕОКМАТ (5Х,16 НМЕТОД, „НЕПРИМЕНИМ) 
ТОР 
2 МВІТЕ (1,4) Х1,Г, 
4 ЕОКМАТ (5Х,Е10.4, 5Х, 13) 
ЗТОР 
ЕМ” 


_ Обращаем Ваше внимание на то, что в приведенной программе зна- 
чение управляющей переменной [., если число итераций не прево- 
сходит 500, используется вне цикла в операторе с меткой 2. Программа 
включает два оператора ЗТОР. Первый из них (считая в порядке за- 
писи в программе) будет выполняться в случае, когда процесс окажется _ 
расходящимся. При этом будет напечатана строка 


МЕТОД НЕПРИМЕНИМ 


Заметим также, что в промежутке программы между операторами 
СОМТІМОЕ и первым оператором ЗТОР управляющая переменная 
оператора цикла неопределена и, следовательно, сюда не может быть 
вставлен никакой оператор, использующий эту переменную. 


125 


Задание. Для решения систем алгебраических, или тран-` 
сцендентных, уравнений 


х= Ф (х, у, 2), А 
У = Ф (х, у, 2), 
2 = Фф, (х, 0, 2) 


иногда применяется метод простой итерации, согласно которому 


Ха = Фу (Ха Уи» 2а)» 

Уп-м == Ф (х,, Уп» 21), 

2а41 == Фз (ха, 0 24)» 
либо метод итерации типа Зейделя: 


Ап = Ф1 (х,, Ук» 2), 
Уп = Фә (т, Ут» 2), 
2-1 = Фа (Хаф, Ип 20) 
Итерационный процесс продолжается до тех пор, пока не будет 
выполнено условие: 


[кат —х,[<ЕРЅ Л 101—0,1<ЕРЅ Леа —2|-<ЕРЅ 


где ЕРЅ — заданная точность, 
ху, 0, 2, — начальное приближение. 
1. Составить фрагмент программы, реализующий метод простой 
итерации для решения системы линейных уравнений: 


Ху = 11 4 ах Р ах Е 0а 
х = азуу + @а Ха - зза А 0% 
Хз = адалт + зо 4 @зз%з Е 0з 
с выдачей на печать количества итераций. (Если количество итераций 
№ > 100, организовать выдачу текста: ПРОЦЕСС РАСХОДИТСЯ). 
Требуется написать данный фрагмент в трех вариантах: 
а) рассматривая коэффициенты системы как отдельные простые 
переменные; | 
б) полагая, что коэффициенты при неизвестных образуют двумер- 
ный массив А, а свободные члены — одномерный массив В; 
в) полагая, что все коэффициенты системы образуют общий массив. 
2. Задание 1 (6) выполнить для системы и-линейных уравнений, 
где и произвольно. : 
3. Задание 1 (6) выполнить для метода итерации типа Зейделя 


Порция 94 
Оператор РО (продолжение) 


Если при выполнении некоторого оператора ‘перехода, содержа- 
щегося в области оператора цикла РО, осуществляется выход из этой 
области, то при этом текущее значение управляющей переменной опе- 
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ратора цикла сохраняется и, слеловательно, оно может быть исполь- 
зовано при выполнении дальнейших операторов. Это обстоятельство 
использовано в приведенном в предыдущей порции примере: в опера- 
торе с меткой 2 используется переменная 1., значением которой являет- 
ся число итераций, которое было выполнено до получения искомого 
решения. | : 

Вместе с тем, согласно синтаксису языка ФОРТРАН, при завер- 
шении оператора цикла по исчерпанию всех допустимых значений 
управляющей переменной (т. е. при достижении ею значения, прево- 
сходящего максимальное значение) осушествляется переход на опера- 
тор, непосредственно следующий в записи программы за конечным 
оператором цикла, и при этом параметр цикла становится неопреде- 
ленным. На данное обстоятельство следует обратить особое внимание. 
Поэтому, например, в приведенной выше программе вместо оператора 


\РТЕ (1,3) 
нельзя записать оператор 
\МЕТТЕ (1,4) ХІ,1. 


поскольку после выхода на этот оператор значение переменной 1. не 
определено. 

Задание. Массив А содержит М элементов. Составьте фрагмент 
программы, определяющий число неотрицательных элементов в мас- 
сиве А, расположенных с начала массива до первого отрицательного 
элемента, и выдающий это число на печать. Если первый элемент ока- 
жется отрицательным, то должно быть напечатано число 0. 


Порция 95 
Список типа цикл в операторах ввода-вывода 


В порциях 43—64 гл. И мы рассматривали способы ввода-вывода 
значений простых переменных, элементов массивов и массивов, ука- 
занных в списках операторов КЕАР и МВІТЕ. Кроме простых спис- 
ков (т. е. списков, элементами которых являются идентификаторы 
простых переменных, переменных с индексами или идентификаторы 
массивов), в ФОРТРАНе допускается использование списков типа 
ЦИКЛ. 

Список типа цикл — это список, который содержит спецификацию 
цикла. Формат спецификации типа цикл следующий: 


= ту, 0, т 
или 
р = 7, т, 


Здесь і — простая переменная целого типа; ж 
т, т» з — целые положительные константы или простые 


197. 


переменные целого типа, имеющие тот же смысл, что и в операторе ро, 
и удовлетворяющие тем же ограничениям, которые были перечислены 
при рассмотрении оператора РО (см. порцию 87). 

Примеры операторов ввода-вывода, содер- 
жащих список типа цикл: 


1. ВЕДЬ (9,5) (В(1)1=1,8) 


Эта запись означает, что оператором ВЕАР с перфокарт будут вве- 
дены значения первых восьми элементов массива В по формату, за- 
данному в операторе ЕОКМАТ с меткой 5. Список типа цикл в этом 
операторе эквивалентен следующему простому списку: 

В(1,В(2),В(3),В (4),В(5),В(6),В(7),В(8) 

2. МЕВІТЕ (1,7)(К,5(Ј),Т1(7--1),7=2,6) 

7 РОКМАТ (3Е10.5) 

Эта запись означает, что оператором МВЕІТЕ на бумажной ленте бу- 
дут напечатаны значения переменных К, 5(Ј) и 1(7--1) в таком по- 
рядке: 


Номер Переменные, значения 
строки которых будут напечатаны 
1 строка В 5(2) Т(3) 

2 строка В 5(3) Т(4) 

3 строка В $(4) Т(5) 

4 строка - В $5) Т(6) 

5 строка В 5(6) Т(7) 


Значения указанных переменных будут напечатаны в формате, 
заданном в операторе ЕОКМАТ с меткой 7. Список типа цикл в этом 
операторе вывода эквивалентен следующему простому списку: 

К,9(9),Т(3),8,5(3),Т(4),К,5 (4),Т(5),В,$ (5),Т(6),К,5(6),Т(7) 

Как видно из примеров, элементы массива, входящего в список 
типа цикл, перебираются при каждом повторении цикла по правилам 
изменения управляющей переменной в операторе РО (см. порцию 87). 

При использовании в операторах ввода-вывода списков типа цикл 
необходимо соблюдать следующие правила: 

Правило 1. Спецификация цикла в списке типа цикл отделяется 
от простого списка запятой, а вся конструкция (простой список и 
спецификация цикла) заключаются в скобки: 


Запись списка типа цикл вида 
А(К),В(К),К(К— К = 1,8 
ошибочна, так как в ней, во-первых, отсутствуют внешние скобки, 
во-вторых, нет запятой перед спецификацией цикла и, в-третьих, 
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индексное выражение К — 1 будет равно нулю при К == 1, что не до- 
пускается правилами ФОРТРАНа. 
Правило 2. Допускается использование вложенных списков типа 


цикл. Например: 
(ЮГ) = —=2.0 


В таком случае каждая из спецификаций цикла имеет свою управляю- 
щую переменную (К и Г. в нашем примере). Первая спецификация оп- 
ределяет внутренний цикл, вторая — внешний. Запятые и скобки, 
проставленные в примере, обязательны при записи вложенных списков 
типа цикл. 
Пример использования вложенных спис- 
ков типа цикл: 
((АТ(Т, Л), =1,4) Л=1,5) 
Элементы списка будут переданы в следующей последовательности: 
АТ(1,1), АТ(1,2), АТ(1,3), АТ(1,4) 
АТ(2,1), АТ(2,2), АТ(2,3), АТ(2,4) 
АТ(3,1), АТ(3,2), АТ(3,3), АТ(3,4) 
АТ(4,1), АТ(4,2), АТ(4,3), АТ(4,4) 
АТ(5,1), АТ(5,2), АТ(5,3), АТ(5,4) 


Этот пример показывает, как можно передать данные для двумер- 
ного массива по строкам. Передача данных по столбцам может быть 
задана простым списком: АТ, а также посредством вложенного списка 
типа цикл: 

(АТО, Л. [= 1,9), Ј = 1,4) 

Правило 3. Списки операторов ввода-вывода могут содержать ком- 

бинации простых списков и списков типа цикл. Например: 
В(2) 13,(6(К),К =1,10),А,(Е(1,Л,7 =2,10,2) 


Приведенный в этом примере список состоит из двух простых спи- 
сков: 


В(4), 13 
А 


и двух списков типа цикл: 


(К(К),К=1,10) 
(Е(1,Ј),7=9,10,9) 


Одним из основных преимуществ использования списков типа цикл 
является то, что программист имеет возможность указать переменное 
число вводимых-выводимых значений, поскольку в качестве индексов 
могут быть использованы любые допустимые индексные выражения. 
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Второе преимущество заключается в том, что списки типа цикл 
часто оказываются проще простых списков. 

Задание. 1. Напишите оператор КЕАР для ввода значений 
простых переменных АК, ВХ, С7 и массивов К1(2,3), В(4). Причем 
элементы двумерного массива К1 должны быть введены по строкам. 

2. Запишите эквивалентный этому оператор КЕАР с простым 
списком. 


Е Порция 96 
Вспомогательные операторы ввода-вывода 


Кроме операторов ввода-вывода, описанных в порциях 43, 44, 
66 и используемых для ввода информации с перфокарт и вывода на 
печать, в языке ФОРТРАН имеются специальные операторы ввода- 
вывода для работы с магнитной лентой, т. е. для управления магнит- 
ной лентой во время записи на нее или считывания с нее информации. 
Имеется три разновидности вспомогательных операторов ввода- 
вывода: | 

1. Оператор КЕМИМО 

2. Оператор ВАСК$РАСЕ 

3. Оператор ЕМРЕШЕ 

Давайте разберем подробно каждый из этих операторов. 

Оператор КЕМПМО 

Этот оператор используется для перемотки магнитной ленты к 
началу первой информационной зоны. Оператор ВЕМІМР” имеет сле- 
дующий формат: 

КЕМІМР” а 


Здесь а — целая положительная константа, обозначающая символи- 

ческий номер накопителя на магнитной ленте, или идентификатор це- 

лой переменной (значение которой определяет номер устройства). 
Пример записи: 


ВЕМИМО 4 


Данная запись означает, что в момент выполнения этого оператора 
магнитная лента, находящаяся на лентопротяжном механизме, имею- 
щем символический номер 4, будет перемотана на начало первой ин- 
формационной зоны. 

Оператор ВАСК$РАСЕ 

Выполнение этого оператора вызывает возврат на одну запись на 
указанном накопителе. Оператор ВАСК$РАСЕ имеет следующий 
формат: 

ВАСК$РАСЕ а | 

Здесь а — имеет тот же смысл, что и в операторе КЕМІМР 
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Если накопитель, номер которого указан в операторе ВАСК$РАСЕ, 
находится в начальном положении, то выполнение этого оператора 
не вызывает никаких действий. Если же необходимо выполнить воз- 
врат на несколько записей, оператор ВАСК$РАСЕ необходимо повто- 
рить требуемое количество раз. 

Пример записи оператора: 


ВАСК$РАСЕ 3 


Выполнение этого оператора вызовет возврат магнитной ленты, 
установленной на лентопротяжном механизме с символическим номе- 
ром 3, на одну запись. 

Оператор ЕМРЕПЕ 

Оператор ЕМРЕШЕ используется после вывода массива на маг- 
нитную ленту. Выполнение этого оператора вызывает запись на ука- 
занной магнитной ленте признака конца массива. Оператор ЕМОЕП.Е 
имеет формат: 


ЕМОЕЦ а 


Здесь а — имеет тот же смысл, что и в операторе ВЕМІМР. 
Пример записи оператора ЕМОЕТЕЕ: 


ЕМОЕШЕ 2 


Выполнение этого оператора вызовет запись на магнитной ленте, 
установленной на лентопротяжный механизм с символическим номе- 
ром 2, признака конца массива. 

Задание. 1. Перечислите вспомогательные операторы ввода- 
вывода. 

2. Когда используются эти операторы? 


Порция 97 
Оператор РАТА 


Оператор РАТА, называемый еще оператором начальных данных, 
используется для задания начальных значений, как числовых, так и 
текстовых, переменным или элементам массивов. Важной особенностью 
оператора РАТА является то, что присвоение им начальных значений 
переменным осуществляется во время загрузки, а не во время выпол- 
нения рабочей программы. Это значит, что присвоение начальных зна- 
чений с помощью оператора РАТА при выполнении данной программы 
происходит только один раз. Оператором ВАТА удобно пользоваться 
в следующих случаях: час 

1. Составленная из ряда знаков константа используется в некото- 
рой программной единице многократно; присваивая ее значение не- 
которой переменной, мы освобождаем себя от необходимости записи 
«длинной» константы (например, констант л, е ит. д. с большим числом 
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знаков) в последующих операторах, получая возможность указывать 
вместо этой константы ее идентификатор. 

В данном применении оператор РАТА выполняет фактически 
те же функции, что и операторы присвоения. Однако использование 
оператора РАТА позволяет выполнить в одном операторе присвоение 
значений целому ряду переменных, т. е. уменьшить количество опера- 
торов в данной программной единице. Последнее особенно удобно, 
когда нескольким переменным присваивается одинаковое значение. 

2. Оператор РАТА позволяет присваивать переменным текстовые 
значения, чего нельзя сделать оператором присвоения; поэтому’ его 
можно с успехом использовать для выдачи заголовков программ и дру- 
гой текстовой информации, не зависящей от конкретного условия 
(варианта) задачи. Такие заголовки (или комментарии) могут выво- 
диться в надлежащие моменты вычислительного процесса для прида- 
ния большей наглядности выводимой информации или для ведения 
диалога между ЭВМ и человеком. 

Оператор РАТА имеет формат: 


РАТАР;/4,/,8,/0,/,83/43/, ..., 11,1 


Здесь в каждой паре К; /4,/, разделенных запятыми: 
е, — список идентификаторов простых переменных или перемен- 
ных с индексом; 
4; — список констант; значения которых присваиваются тем пе- 
ременным, идентификаторы которых перечислены перед сим- 
волом «/» в списке Ё,. 
Примеры записи операторов РАТА: 


РАТА РІ/3.1416/,Е/2.718/,М(1)/72/ 
он РАТА РІ,Е,М(1)/3.1416,2.718,72/ 


Элементы списков (как и их пары) разделяются запятыми. Списки 
идентификаторов и списки констант в каждой паре 8,/4,/ в операторе 
РАТА должны быть согласованы.по числу элементов и их типам. 
Однако текстовым константам могут соответствовать в списках иден- 
тификаторы любого типа. Смысл оператора РАТА поясним на примере. 

Пример: 


Р1МЕМ$1ОМ АГРНА (2,3) 

ГОСТСАТ, ВІМ, КОМ | 

СОМРІЕХ КОМР а 

"РАТА А1,А2/12.7,13.7/,К1,К2/7,3/,ВІМ,КОМ/.ЕАІ5Е., 
1. ТВОЕ ./,АІРНА(1,1),КОМР/1.1,(5.,6.5)/ 


(Обращаем Ваше внимание на то, что первый символ 1 в последней 
строке приведенного фрагмента является символом продолжения, т. е. 
он должен быть записан в шестой позиции строки бланка программы. 
Для большей наглядности в этом и последующих примерах, где встре- 
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чается символ продолжения, между предполагаемыми шестой и седь- 
мой позициями будет проведена вертикальная черта). 
Приведенный в этом примере оператор РАТА перед выполнением 
данной программной единицы присвоит переменным вещественного 
типа АІ и А? значения 12.7 и 13.7 соответственно; переменным целого 
типа КІ и К2 значения 7 и 3, переменным логического типа ВМ и 
КОМ значения ЕАТЗЕ. и ТРОЕ. соответственно, переменной ком- 
плексного типа КОМР — значение (5.,6.5), а элемент массива АРНА 
(1,1) получит значение 1.1. 
Списки переменных в операторе РАТА формируются произвольным 
образом, необходимо только соблюдать соответствие их элементов 
элементам списка констант. Кроме того, в этот список не могут быть 
включены формальные параметры и идентификаторы внешних функ- 
ций, о которых будет идти речь в гл. [У. Например, оператор РАТА, 
приведенный в предыдущем примере, можно записать следующим об- 
разом: 
РАТА А1,А2,К1,К2, АТРНА ИТААТ 
ІКІМ, КОМ, КОМР/.ЕАТЗЕ.,.ТВИЕ. ,(5.,6.5)/ 

или 
"АТА А1,А2,К1,К2, АТРНА (1,1), КОМР, КІМ, ВОМ/19.7, 
113.7,7,3,1.1,(5.,6.5),.ЕАТЗЕ.,.ТВИЕ./ 


Задание. Запишите оператор начальных данных, присваи- 
вающий переменным ЕБІ, ВІМ, ВОМ, АГОМС (2,3) значения констант 
275.1, 17.3, 0.05, 37.8 соответственно. 


Порция 98 
Оператор РАТА (продолжение) 


Если нескольким элементам списка переменных в операторе РАТА 
присваиваются одинаковые значения, то вместо многократного повто- 
рения соответствующей константы перед ней можно поставить множи- 
тель вида Ј*, где Ј — целая положительная константа, указывающая, 
сколько раз должна быть повторена данная константа в списке на- 
чальных значений. 

Пример: 

РІМЕМЅІОМ ВЕТА (10) 

РАТА Х, ВЕТА (2), ВЕТА (3), ВЕТА (8), ВЕТА (10)/5*1.0/ 


Перед выполнением программы для переменной Х и четырех элемен- 
тов массива ВЕТА будут установлены значения, равные 1.0. 

Как отмечалось выше, операторы РАТА могут задавать перемен- 
ным не только значения числовых констант, но и текстовых. (Напом- 
ним, что в качестве идентификаторов переменных, используемых для 
присвоения текстовых значений, используются идентификаторы 
переменных или массивов любого типа). 
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Пример: 
РАТА А, В, С/5ННОМЕР, АНДАТА, 5НКОНСТ/ 


При выполнении этого оператора в поле памяти с именем А будет по- 
мещена текстовая константа НОМЕР, в поле с именем В — константа 
ДАТА и в поле с именем С — константа КОНСТ. 

Каждая конкретная реализация накладывает определенные огра- 
ничения на максимальную допустимую длину текстовых констант 
(соответственно с размером полей памяти, отводимых для переменных 
того или иного типа). Однако поля переменных или элементов массива 
типа СОМРГЕХ или РООВІЕ РВЕСІЅІОМ, которым присваиваются 
оператором РАТА значения текстовых констант, могут содержать 
в два раза больше символов, чем поля памяти для данных типа 
ІМТЕСЕВ, ВЕАІ и ГОССАГ. 

Если текстовая константа состоит из числа символов, меньшего 
максимально допустимого их числа, то символы текстовой константы 
будут справа дополнены соответствующим числом пробелов. Если ее 
длина превышает максимально допустимое число символов для пере- 
менной данного типа, то соответствующее число самых правых симво- 
лов константы отсекается. 

Текстовые константы, значения которых присваиваются элементам 
массивов, могут состоять из произвольного числа символов, так как 
в таком случае текстовая константа по соответствующему количеству 
символов, определяемому реализацией, последовательно заносится 
в поля, отведенные под элементы массива. 

Предположим, что некоторая реализация допускает длину тексто- 
вых констант 6 символов для переменных типа ПМТЕСЕК, ВЕАГ и 
ГОСТСАЕ и 12 символов для переменных типа СОМРГЕХ и РОЧВГЕ, 
РРЕСІЅІОМ. Тогда значения, присвоенные переменным АВК, ВКК, 
МАС (1), МАС (2), МАС (3) и ООВ операторами 

Р1МЕМЗОМ МАС(3) 
РОЧВГЕ РВЕСІЅІОМ РОВ 
"РАТА АВВ, ВЕБ, МАС/6НМАССИВ 6 НДАННЫХ, 
1 18НВЕЩЕСТВЕННОГО, ,ТИПА/, РОВ/7НТАБЛИЦА/ 


будут следующими: 


Идентифи- 

като эле- 

сие. | АВВ | ВЕК | МАС(1) | МАС (2) | МАС (3) ров 

ка пере- 

менных 

Начальное | МАССИВІДАННЫХ ВЕЩЕСТВЕННОГ Ю- ТИПА ТАБЛИ 
значение А Е 


ААА ———————————————— 
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Задание. В массив А, состоящий из шести элементов, нужно 
заслать оператором РАТА следующую текстовую константу: 


46НЗНАЧЕНИЯ, ПЕРЕМЕННЫХ, ПОСЛЕ, ‚ВЫПОЛНЕНИЯ 
‚ ПРОГРАММЫ 


Запишите оператор РАТА для присвоения элементам массива соот- 
ветствующих значений, причем составьте этот оператор так, чтобы 
в каждый элемент массива было послано отдельное слово приведенно- 
го выше выражения. Предположим, что длина текстовых констант 
для переменных типа ПМТЕСЕВ, ВЕАІ и ОСІСАІ, — 6 символов и 
для переменных типа СОМРІЕХ и РООВІЕ РКЕСІЅІОМ — 12., 


Порция 99 
Оператор РАТА (продолжение) 


Правила использования оператора РАТА 


Правило 1. Оператор начальных данных используется для задания 
начальных значений простых переменных или элементов массива, чис- 
ло которых должно быть равно числу констант в каждой из пар #,/0, 
(с учетом коэффициента повторения). 

Правило 2, Переменная или элемент массива, которым присваи- 
ваются значения оператором ЮАТА, не могут находиться в непоме- 
ченном общем блоке. Начальные значения переменных или элементов 
массивов, находящихся в помеченных общих блоках, могут быть опре- 
делены только в сопрограммах данных (общие блоки и сопрограммы 
данных описаны в главе ГУ). Таким образом, с помощью оператора 
РАТА, помещаемого в какой-либо программной единице (не в сопро- 
грамме ВГОСК РАТА), могут задаваться только начальные данные 
переменным, не входящим в общие блоки. : 

Правило 3. Оператор РАТА может находиться в любом месте про- 
граммной единицы между последним оператором спецификации и ко- 
нечной строкой ЕМО. 

Правило 4. Списки переменных в операторе РАТА не должны со- 
держать формальных параметров (о формальных параметрах будет 
идти речь ниже), а также идентификаторов внешних функций. 

Правило 5. Индексы переменных в списке переменных оператора 
РАТА должны быть целыми положительными константами. 

Правило 6. Единице памяти в выполняемой программе может быть 
задано начальное значение только один раз. 

Задание. Найдите ошибки в приведенных ниже операторах 
начальных данных и напишите варианты правильных операторов: 

а) РАТА А,В,С,р/2.7,2+4.0/ 

6) СОММОМ /К/Х,У,2 

РАТА В,Х/2.0,0.0/ 
в) РАТА А(1),А(3),А(К)/З*1.0/ 


Глава ТУ 


Функции и подпрограммы 


Порция 100 
Классы функций и подпрограммы 


Экономию труда при написании программ обеспечивает использо- 
вание различного вида функций и подпрограмм, предусмотренных 
в ФОРТРАНе. Можно предварительно написать один раз некоторый 
оператор или их последовательность — тело процедуры — а затем 
по мере необходимости обращаться к их выполнению. Для такой цели 
ФОРТРАН включает развитый аппарат средств, которые в языках 
программирования принято подразделять на два класса: 

1. Процедуры для вычисления функций (другие названия: про- 
цедуры-функции, функции); 

2. Процедуры-подпрограммы (иначе: подпрограммы 5ОВКООТІМЕ, 
подпрограммы). 

Основное различие между функциями и подпрограммами состоит 
в способе обращения к этим процедурам. 

В случае функций обращение к соответствующей процедуре, пред- 
назначенной для вычисления, как правило, одного значения — значе- 
ния функции — осуществляется посредством так называемого ука- 
зателя функции, который не является оператором, а лишь использует- 
ся в качестве первичного выражения. 

В отличие от этого подпрограммы обычно предназначаются для 
вычисления ряда значений (в том числе значений разных типов, а так- 
же всех или части элементов массивов и пр.) и определяются как за- 
конченные единицы действия, в связи с чем обращение к ним в языках 
программирования (например, в ФОРТРАНЕ, АЛГОЛе-60, ПЛ/І и 
многих других) определяется Посредством операторов вызова под- 
программ, называемых также операторами обращения к подпрограм- 
мам. 

‚ Единицы действия языка, которые обращаются к выполнению не- 
которых процедур, называются вызывающими, а сами процедуры — 
вызываемыми. В | 

Подпрограммы на языке ФОРТРАН оформляются в виде отдель- 
ных программных единиц, начинающихся оператором ЗОВКОПТП\Е, 
в связи с чем их называют иногда подпрограммами ЗОВКОСТИМЕ 
или процедурами ЗОВКОЧТИМЕ. 
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Что касается функций, то в ФОРТРАНе по способу их определения 
следует различать три класса функций: 

1. Операторные. 

2. Встроенные. 

3. Внешние, называемые также процедурами ЕОМСТІОМ (рис. 28). 


Процедура 


Встроенная Внешняя 
Функция рункиия 


Основная 
фнешияя 
функиия 


Рис. 28 


Операторная 
функция 


Изучению этих важных средств программирования мы предпош- 
лем рассмотрение некоторых общих для них понятий. 

Задание. 1. Назовите классы вычислительных процедур, ис- 
пользуемых в языке ФОРТРАН. 

2. Назовите типы функций, используемых в ФОРТРАНе. 

3. Какие единицы языка называются вызывающими? вызывае- 
МЫМИ? к 


Порция 101 
Идентификаторы функций и подпрограмм 


С каждой из вычислительных процедур — функций или подпро- 
грамм — связывается некоторый идентификатор, называемый соот- 
ветственно идентификатором данной функции или подпрограммы. 
Посредством идентификаторов функций и подпрограмм осуществля- 
ется обращение к процедурам их выполнения (вычисления). 

Что касается встроенных функций, то процедуры их выполнения 
содержатся в реализации языка, и аппарат их выполнения преду- 
сматривает включение (встраивание) соответствующих команд (чис- 
ло которых для каждой из них весьма невелико) во все точки объект- 
ной программы, где данная функция используется. 

Заметим также, что идентификаторы встроенных функций заранее 
определены и закреплены за этими функциями. Список встроенных 
функций, предусматриваемых стандартом языка, приведен в табл. 23 
(стр. 280). Точно так же за некоторыми внешними функциями, оформ- 
ляемыми реализацией языка в виде отдельных программных единиц 
и называемыми основными внешними функциями, закреплены 
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определенные идентификаторы. Список основных внешних функций 
приведен в табл. 24 (стр. 282). 

Во всех остальных случаях идентификаторы для функций и под- 
программ выбираются составителем программы согласно общим 
правилам построения идентификаторов, т. е. идентификатор является 
буквенно-цифровой последовательностью, содержит не более 6-ти 
символов и начинается с буквы (в некоторых случаях на использование 
идентификаторов тех или иных классов функций и подпрограмм на- 
кладываются дополнительные ограничения; о них мы узнаем по мере 
изучения этих важных средств программирования). 

Задание. 1. Для какой цели вводятся идентификаторы функ- 
ций и подпрограмм? 

2. Для каких классов функций закреплены идентификаторы? 

3. Какие из приведенных идентификаторов являются идентифи- 
каторами встроенных функций? основных внешних функций (соглас- 
но стандарту языка) МАХО, МАХІ, ОМГМИ, ВЕДЬ, ІЕІХ, ЕХР, 
СЕХР, АГОС10, 2СО$, ССОЅ, АТАМ? Какие типы аргументов и функ- 
ций они определяют? 


Порция 102 
Фактические и формальные параметры 


Каждая вычислительная процедура, помимо идентификатора, ис- 
пользуемого для ее обозначения и обращения к ней, характеризуется 
перечнем аргументов, которые в языках программирования принято 
называть параметрами. 

Понятие параметров в языках программирования является одним 
из основополагающих. 

При записи вычислительных процедур, вызываемых теми или ины- 
ми программными единицами, их параметры обозначаются идентифи- 
каторами и называются они формальными параметрами. При этом 
разные формальные параметры обозначаются различными идентифи- 
каторами. 

Существенно заметить, что в качестве формальных параметров про- 
цедур могут быть использованы не только идентификаторы перемен- 
ных, принимающие в момент вызова процедуры значения тех или иных 
выражений — фактических параметров, но и идентификаторы, заме- 
щаемые в момент вызова процедуры фактическими параметрами, 
именующими результат. 

В первом случае принято говорить о формальных параметрах, вы- 
зываемых значением (или по значению). Таким идентификаторам на 
время выполнения процедуры отводится определенная память, име- 
нуемая этими идентификаторами, а в момент вызова в эту память по- 
мещаются передаваемые значения аргументов — фактических пара- 
метров. Во втором случае формальный параметр в процедуре является 
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лишь обозначением позиции, которая должна быть замещена соот- 
ветствующим фактическим параметром. В этом случае говорят о фор-. 
мальных параметрах, вызываемых наименованием (или по наимено- 
ванию). Так, если таким параметром будет идентификатор простой 
переменной, которой присваивается в процессе выполнения процеду- 
ры некоторое значение, то получаемый результат будет пересылаться 
в поле, обозначаемое соответствующим фактическим параметром. 

Следующий пример иллюстрирует использование формальных па- 
раметров, вызываемых по значению и по наименованию: 


Вызывающая программная Вызываемая программная 
единица единица 


ВЕАБ(,5)АЕ.Е ' ЅОВКООТІМЕ Р1(Х,У,2) 
5 РОВМАТ(3Е10.1) АЕ "2 


е Ү= ХаХа 
С=А=*Р/(2..Е4) 5 ж й: к ао 


САШ. РЦА,В,С) `` КЕТОВМ °` 
$1) =А-В»Ажь3 °°° ЕМО 
о-и 

ЕМО 


Разберем подробно этот пример. Вызываемая программная едини- 
ца является подпрограммой и вызывается с помощью специального’ 
оператора САТ. Подпрограмма обозначена идентификатором РІ и 
имеет формальные параметры Х, У, 7. Давайте теперь посмотрим, 
как взаимодействуют формальные параметры Х, У и 2 с фактиче- 
скими параметрами (А, В, С), указанными в операторе СА! в вызы- 
вающей программной единице. Поскольку значение переменной А 
определяется при выполнении оператора ввода, а переменная С полу- 
чает определенное значение при выполнении арифметического опера- 
тора присвоения, то формальные параметры Х и 7, соответствующие 
фактическим параметрам А и С, будут вызываться значением, т. е. 
в память, отведенную переменным Х и 7, будут помещены значения А 
и С соответственно. Значение третьего формального параметра У 
вычисляется в процессе выполнения подпрограммы, его значение бу- 
дет помещено в поле, отведенное фактическому параметру В. Этот 
формальный параметр вызывается наименованием. 

В языке ФОРТРАН приняты некоторые ограничения на исполь- 
зование формальных параметров, вызываемых по наименованию. В том 
случае, когда фактический параметр является выражением, соответ- 
ствующий ему формальный параметр вызывается значением. Послед- 
нее означает, что в момент вызова вычисляются значения выражений, 
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являющихся фактическими параметрами, при текущих значениях 
входящих в них величин; последние должны быть определены к мо- 
менту вызова. Эти значения присваиваются формальным параметрам 
(т. е. эти значения засылаются в поля памяти, обозначаемые формаль- 
ными параметрами). Напомним, что величина является определенной, 
если ее идентификатору присвоено значение, т. е. в выделенное ей 
поле памяти заслано некоторое значение, соответствующее ее типу. 

С другой стороны, если фактический параметр соответствует фор- 
мальному параметру и значение последнего в процедуре определя- 
ется или переопределяется (посредством оператора присвоения или 
ввода), то этот формальный параметр вызывается по наименованию, 
а фактический параметр может быть только идентификатором простой 
переменной, переменной с индексами или идентификатором массива. 

Для обращения к процедуре необходимо указать, какие объекты 
должны быть использованы вместо формальных параметров, т. е. за- 
дать в вызывающей программной единице фактические параметры. 
Естественно, формальные параметры и фактические должны быть меж- 
ду собой согласованы в количестве, и каждому формальному парамет- 

гру должен быть сопоставлен определенный фактический параметр, 
что достигается заданием в вызываемой процедуре списка формальных, 
а в вызывающей — списка фактических параметров; в каждом из 
списков параметры разделяются запятыми, а сами списки заключают- 
ся в скобки. Формальные и фактические параметры должны быть со- 
гласованы в порядке их перечисления в соответствующих списках. 
Кроме того, требуется согласование между типами формальных и фак- 
тических параметров. 

Списки формальных и фактических параметров указываются соот- 
ветственно в вызывающей и вызываемой процедурах после иденти- 
фикатора данной процедуры. 

В рассмотренном выше примере фактические параметры вызыва- 
ющей программы А, В, С согласуются с формальными параметрами 
подпрограммы РІ и в числе (3), и в типе (и в том и в другом списке 
все переменные являются вещественными). 

Задание. 1. Какие (формальные или фактические) параметры 
необходимо задать при обращении к некоторой процедуре? 

2. Какие способы вызова формальных параметров допускаются 
в языке ФОРТРАН и в каких случаях они используются? 

3. Связано ли использование формальных параметров, вызывае- 
мых по значению, с выделением специальной памяти для них внутри 
соответствующей процедуры? 

‚4. Связано ли использование формальных параметров, вызывае- 
мых по наименованию, с выделением специальной памяти для них внут- 
ри соответствующей процедуры? 

‚5. Как должен вызываться формальный параметр процедуры, обо- 
`значающий результат ее выполнения? 
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6. Чем может быть фактический параметр, обозначающий резуль- 
тат выполнения процедуры? 

7. В чем должны согласовываться списки формальных и фактиче- 
ских параметров процедур? 

8. Требуется ли согласование списков формальных параметров 
двух разных процедур? 


Порция 103 
Связь между фактическими и формальными параметрами 


‚ < Выполнение обращения к процедуре приводит к связи фактиче- 
ских параметров со всеми употреблениями формальных параметров 
в теле этой процедуры. При этом, если фактический параметр являет- 
ся переменной с индексами и выражения, составляющие индексы, 
содержат переменные, то такой фактический параметр автоматически 
заменяется тем же параметром со списком постоянных индексов, рав- 
ных их текущим значениям, полученным непосредственно в момент 
установления связи между параметрами (такая замена осуществляет- 
ся транслятором). 

Пример. 

В вызываемой процедуре Р переменные Х и У являются формаль- 
ными параметрами, причем Х вызывается значением, а У — наиме- 
нованием (У встречается в левой части оператора присвоения). Среди 
выполняемых операторов в этой процедуре имеется оператор | 


Пусть в качестве фактических параметров для Х и У в вызывающей 
процедуре соответственно используются выражения АВ (М + 1), 
АР” (К — 2), и в момент обращения к вызываемой процедуре М = 2, 
К = 4. Тогда в момент вызова значение переменной АВ (3) (т. к. №Ъ ++ 
1=2 +1 = 3), которое должно быть определенным в вызывающей 
программной единице, будет присвоено формальному параметру Х, 
а формальный параметр У в процедуре всюду будет заменен факти- 
ческим АР” (2) (т.к. КҚ —2 = 4 — 2 = 2), т. е. в процедуре Р будет 

выполняться оператор | 


АР(2) =Х--АБ(2)--Х»АБ(2) 


причем значение Х равно значению АВ (3). 

Формальному параметру, являющемуся идентификатором масси- 
ва, может соответствовать фактический параметр, являющийся Только 
идентификатором массива или элементом массива того же тийа. 

Обратим Ваше внимание еще на одно обстоятельство. 

Как было отмечено в порции 102, формальные параметры любой 
процедуры должны быть отличными друг от друга идентификаТорами 


мі 


(и только идентификаторами). Что касается фактических параметров, 
то такого ограничения на них не накладывается. Так, процедура, 
предназначенная, например, для вычисления суммы квадратов двух 
величин и оформленная посредством использования двух формальных 
параметров — идентификаторов соответствующих переменных (на- 
пример, ЗИВКОЧТТ\Е А (С, Р)), естественно, может быть примене- 
на для вычисления суммы квадратов двух равных величин (или выра- 
жений) или суммы квадратов двух величин, из которых первая равна, 
например, Х, а вторая Х + У (т. е. вызывающий оператор может иметь 
вид: САМ, А (Х--5.,Х--5.) или САТІА (Х,Х--Ү)). Таким образом, 
фактические параметры могут оказаться совпадающими или связан- 
НЫМИ. 

Напоминаем еще раз, что правила языка ФОРТРАН допускают 
задание фактических параметров при вызове процедур, совпадающих 
или связанных между собой, только для таких формальных парамет- 
ров, которые в процессе выполнения процедуры не определяются (и не 
переопределяются), т. е. для параметров, вызываемых значением. 

Такое же ограничение накладывается на все те процедуры, 
для которых допускается связь между их формальными параметрами 
и величинами в общем блоке. Понятие общего блока величин будет 
объяснено позднее. 

Задание. 1. Какой фактический параметр может соответство- 
вать формальному параметру, являющемуся идентификатором масси- 
ва? 

2. Могут ли формальные параметры быть одинаковыми идентифи- 

каторами? А фактические параметры? 


Порция 104 
Указатели функций 


„ В ФОРТРАНе определены только такие функции, в которых выде- 
лен по меньшей мере один формальный параметр (в отличие от, на- 
пример, языков АЛГОЛ-60, ПЛ/І и др., в которых допускаются функ- 
ции без параметров). 

В порции 22 было отмечено, что обращение к функциям осущест- 
вляется с помощью так называемых указателей. 

Что же представляют собой указатели функций? 

Указателем функции называется конструкция, представляющая 
собой идентификатор данной функции, за которым в круглых скоб- 
ках записан в установленном порядке (соответствующем порядку, при- 
нятому в списке формальных параметров) список фактических пара- 
метров, разделенных между собой запятыми. Например, указателем 
функции $13 при вычислении значения синуса для аргумента Х 1.2 
будет $1М (Х--1.2) (обращаем Ваше внимание на то, что аргумент 
функции 51, как и любой другой функции в языке ФОРТРАН, дол- 
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жен быть взят в скобки). Выражение Е(Х 4-2.1,4) может служить ука- 
зателем функции Е, определенной с помощью двух формальных пара- 
метров (первый из которых вещественного типа, а второй — целого). 

Оба приведенных указателя функций могли бы быть использованы, 
например, в следующем операторе присвоения: 


Т=$1М(1.31)--Е(Х --2.1,4) 2 


(если функция Е является функцией вещественного типа). 
Задание. Напишите указатель функции для вычисления косн- 
нуса для аргумента Х? — А. 


Порция 105 
Типы функций 


Как было отмечено в порции 100, в процедурах, предназначенных 
для вычисления функций, выделяется одно значение, принимаемое 
в качестве результата, присваиваемого ее идентификатору и возвра- 
щаемого в точку вызова через указатель этой функции. ФОРТРАНом 
устанавливается возможность получения такого результата при вы- 
числении каждой конкретной функции при любых допустимых для 
этой функции значениях параметров только одного, раз навсегда для 
нее установленного типа, называемого типом функции. | И. 

ФОРТРАН допускает функции целого, вещественного, повышен- 
ной точности, комплексного и логического типов. 

Целый и вещественный тип функций может быть определен, как и 
тип переменных этих двух типов, неявно. Для функций целого типа 
при неявном определении типа требуется выбирать идентификатор, 
начинающийся одной из букв І, Ј, К, 1, М, М; для вещественного ти- 
па — одной из остальных букв латинского алфавита. В прочих слу- 
чаях тип должен быть специфицирован для идентификатора функции 
явно (об этом подробнее будет говориться далее). 

Существенно отметить, что идентификатором определяется (явно 
или неявно) не только тип функции. Этому идентификатору присваи- 
вается и результат выполнения соответствующей процедуры. Это зна- 
чит, что тип идентификатора функции определяет тип результата ее 
выполнения. 

Типы встроенных функций, как это было отмечено в порции 101, 
определены табл. 23 (стр. 280), и специального описания их типов 
в программах на ФОРТРАНе не требуется. То же самое касается 
типов основных внешних функций. 

Так как операторные функции могут быть использованы только 
в той программной единице, в которой они приведены, то описание 
их типа в случае его явного задания должно быть дано в той же про- 
граммной единице. Такое описание типа задается оператором специ- 
фикации, как и при задании типа переменных, с помощью соответст- 
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вующего спецификатора. Формальные параметры операторной функ- 

ции могут быть использованы в качестве идентификаторов других 

объектов, используемых в данной программной единице, например 

формальных параметров других операторных функций, идентифика- 

торов внешних функций или идентификаторов простых переменных. 
Приведем примеры задания типа операторных функций. 


Идентифика- 


тор функции Тип функции Место и способ задания типа 
А вещественный может быть задан неявно 
В целый в той же программной единице опера- 
тором спецификации типа ІМТЕСЕК В 
© логический в той же программной единице опера- 
тором спецификации типа ГОСКАГ С 
АР повышенной точности в той же программной единице опера- 
тором спецификации типа РООВЬЕ 
| РЕЕСІЅІОМ АР 
Р комплексный в той же программной единице опера- 
тором спецификации типа СОМРІЕХР 
вещественный в той же программной единице опера- 
тором типа ВЕАГ М 
К целый может быть задан неявно 


Для внешних функций в случае необходимости явного задания их 
типа это задание должно быть приведено как в вызывающей, так и в 
вызываемой программных единицах. 

В вызывающей программной единице (ею может быть, как Вы знае- 
те из порции 1, как главная программа, так и любая другая програм- 
мная единица) такое описание типа внешней функции должно быть 
задано, как и в случае операторной функции, оператором специфи- 
кации типа с помощью соответствующего спецификатора. Например, 


ВЕАГ, І, М, КОМ 


В вызываемой процедуре внешней функции описание типа осущест- 
вляется посредством задания перед служебным словом ЕОМСТІОМ№ 
соответствующего спецификатора. 


Примеры задания типа внешних функций 


т Формаль- 
е Е Тип функции ные Место и способ задания типа 
параметры 
АН вещественный Х, У | Может быть задан неявно 
АН целый Х, У |В вызывающей программной единице опе- 
ратором ПМТЕСЕК АН и в вызываемой 
программной единице посредством опера- 
тора 1МТЕСЕВ ЕОМСТІОМ АН (Х, У) 
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. Продолжение таблицы 
если НЕЕ... „ЕРИННИН лачин АГ ЫА 


ЛЬ- 
5 12 Тип функции За 8 Место и способ задания типа 
параметры 
аа СЦЕ а Е НШ 

АН комплексный Х, Ү |В вызывающей программной единице по- 
средством оператора СОМРІЕХ АН и в 
вызываемой программной единице посред- 
ством оператора СОМРІЕХ ЕОМСТІОМ№ 
АН (Х, Ү) 

АН логический Х, Ү |В вызывающей программной единице опе- 
ратором ІОСІСАГ АН и в вызываемой 
программной единице оператором 
ГОАІСАІ, ЕОМСТІОМ АН (Х, У) 

НО комплексный Х, У |В вызывающей программной единице опе- 
ратором СОМРІЕХ ІНО и ввызываемой 
программной единице оператором 
СОМРІЕХ ЕЧМСТІОМ ІНО (Хх, У) 

ІНО целый Х, У | Может быть задан неявно 


Задание. 1. Какие типы функций допустимы в языке 
ФОРТРАН? 

2. Как задается тип операторной функции? 

3. Как может быть задан неявно тип внешней функции? 

4. Допустимо ли описание типа функции А следующим образом: 


ЕОМСТІОМ А(Х) | 
ГОСТАГ, А 


Порция 106 
Встроенные функции 


Большинство реализаций ФОРТРАНа предусматривает несколько 
десятков встроенных функций, с помощью которых могут быть вы- . 
числены синусы, логарифмы, абсолютные значения и пр. От описания 
процедуры вычисления встроенных функций составитель программы 
на ФОРТРАНе полностью освобожден, и вместе с тем встроенные 
функции могут быть. использованы в любых программных единицах: 
в главной программе, внешних функциях и подпрограммах. 

На рис. 29 схематически показан принцип использования встроен- 
ных функций. 

Каждый программист должен иметь полный список функций, пре- 
дусмотренных реализацией языка на данной ЭВМ в качестве встроен- 
ных, вместе с подробными к ним пояснениями, такими как указание 
точности вычисления значений функций, формы представления аргу- 
ментов, единицы измерения (например, необходимо выражать аргумент 
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И. 


синуса в радианах) и т. д. В табл. 23 на стр. 280 приведен список 
встроенных функций, предусмотренных стандартом языка ФОРТРАН. 

За каждой из встроенных функций закреплен идентификатор, 
но это не запрещает его использование в некоторой программной еди- 
нице в других целях, например, для обозначения некоторой перемен- 
ной. Однако в последнем случае необходимо иметь в виду следующее: 


Программа на ФОРТРАН Радочая программа 
ЗУВКООТТМЕ АЕРНА (К, 5,1) ЗИВВООТІМЕ АЕРНА(К,5,Т) 


ооо ооо ооо ро бов е е ае ооо фо о ео 


а зеки есеге е е о 12.8 е зо о а ее е ве е атш е 


ФУНКЦИЯ АМИ (В (1) В, (2) ,К(7),6(10)) 


эфоо о ово о 


Х=АМІМІ(К(1) В, 


о 


СТАЗЕ 
е 2090 о 


2 


— 
= 


Ру 
есчо о 27 о 
о ох оо 
* 
о осоо в 
Б. 5 


оеое ое 


В=АМІМІ(А(1) „А 


1) 
оов ее е е 


КЕТИКМ . 


соое о оо о ео ое о ео ее о 
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ево о овоо б е ото о о 


о Ло о~— е 
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КЕТШКМ 
ЕМ 


ФУНКЦИЯ АМИ! (К (1), К(2), 


оооо ооо офоо 


АМІМ = 


Возврат вычисленных значений 


В=АМІМ1 (К(1) ,(2),8 (3) )-К(4)*7.0 


РА 


Если идентификатор некоторой встроенной функции в данной про- 
граммной единице используется для обозначения именно этой функ- 
ции, то он в этой программной единице не может быть использован 
ни в каких других целях и нет необходимости в его специальном опи- 
сании (в операторе спецификации). Исключение составляет возмож- 
ное использование этого идентификатора в качестве наименования 
общего блока данных в операторах СОММОМ (об этом будет идти 
речь далее). 

Если идентификатор встроенной функции мы хотим использовать 
в некоторой программной единице для обозначения другого объекта, 
то это может быть сделано только для переменной того типа, который 
приписан этому идентификатору в табл. 23 (и, как уже было сказано, 
в данной программной единице соответствующая встроенная функция 
становится недоступной). 
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Назовем еще два дополнительных требования, которым должны 
удовлетворять идентификаторы встроенных функций (в том случае, 
когда они не используются для обозначения некоторых других объек- 
тов программы): 

1) Идентификатор встроенной функции не может встречаться в 
операторе ЕХТЕКМАІ (об этом операторе Вы узнаете в дальнейшем). 

2) Идентификатор встроенной функции всегда предшествует непо- 
средственно заключенному в скобки списку фактических параметров 
(т. е. встречается только в конструкции, представляющей собой ука- 
затель функции). 

Обращение к встроенной функции, как и ко всякой другой, осу- 
ществляется посредством употребления ее указателя в качестве пер- 
вичного в арифметическом или логическом выражении. При этом в ка- 
честве фактических параметров могут быть использованы любые вы- 
ражения, тип, количество и порядок которых определяются таблицей 
23. Заметим, что встроенные функции АМОР, МОР, $1АМ, І5І8М, 
р5ІСМ не определены, если их второй аргумент равен нулю. 

Пример обращения к встроенной функции 


АВ: | 
1Е(В—АВЗ($Т—1.))12, 1,3 


Задание. Какие из приведенных ниже конструкций языка 
являются допустимыми записями операторов присвоения? 
1. А = АВЅ-+-АВЅ(Х +-Ү) 
А = АМТ-1 
А = МАХО-| 1.2 
А = АМТ-РАВ$(Х-НУ) 
А = РГОАТ(К)-1 
А = АМОР(С)-2.1 
А = ІРІХ(С)+-2 


ео > 


Порция 107 
Операторные функции 


Часто случается, что в программе необходимо многократно вы- 
полнять вычисления по одной и той же формуле, заданной арифмети- 
ческим или логическим выражением, но над различными аргументами 
или выражениями (или над теми же самыми выражениями, содержа- 
щими переменные, которые могли изменить свои значения). 

Предположим, например, что в программе имеется последователь- 
ность операторов: 


В=Азж2--Вк2-НСая9-- .Б—Е 
р=(Х2—Х2- (2—1 


оо . 


2-1 (29—271) 2—6 
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3—$ОВТ(АГРНА*=2--ВЕТА=2--$КАРл=2—Е) 

У(Х (П) УВК (Ј) 0-2 

14-Р) Е) 

Все эти операторы содержат выражения вида 
АВС1**2--АВС2**2-- АВ 03**9—Е, 


хотя операции производятся в них над разными переменными или вы- 
ражениями, за исключением переменной Е, используемой в каждом 
из НИХ. ь 

Если одно и то же арифметическое или логическое выражение или 
сходные выражения, как это имело место в нашем примере, встречают- 
ся в одной и той же программной единице несколько раз, то его можно 
определить в виде особого оператора, который в ФОРТРАНе носит 
название оператора-функции, или операторной функции. Такое опре- 
деление имеет вид равенства, напоминающего оператор присвоения 
(откуда и происходит название оператора). Формат операторной функ- 
ции следующий: 

У (а =е 
Здесь У — идентификатор операторной функции; 
а — список формальных параметров данной функции; 
е — арифметическое или логическое выражение. 

Ограничений на число формальных параметров в операторной функ- 
`ции не накладывается. Однако длина операторной функции не должна 
превышать длины оператора, допустимой в ФОРТРАНе (66 Х 20 = 
= 1320 символов). 

Операторная функция может быть использована только в той про- 
граммной единице, в которой дано ее определение, т. е. в которой 
приведен данный оператор-функция. 

Идентификаторы операторных функций выбираются составителем 
программы по его усмотрению и должны быть отличными от иденти- 
фикаторов встроенных функций, если последние используются в 
данной программной единице (о чем была речь выше), а также исполь- 
зуемых в ней идентификаторов других объектов (кроме, быть может, 
идентификаторов, используемых для обозначения общих блоков па- 
мяти, о которых речь будет далее). 

Идентификатор операторной функции должен быть описан в дан- 
ной программной единице явно или неявно (в последнем случае, т. е. 
при неявном задании типа, напоминаем, что это допустимо только для 
целого и вещественного типов), и его тип должен быть согласован 
с типом выражения, составляющего его правую часть. Другими `сло- 
вами, идентификатор операторной функции может быть целого, ве- 
щественного типа или типа повышенной точности, если указанное 
выражение является выражением арифметического типа, отличного 
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от комплексного; он может быть комплексного или логического типа, 
если это выражение комплексного или логического типа, соответст- 
венно. 

Формальными параметрами, число которых для каждой функции 
фиксируется (и, как и для всех прочих классов функции, не может 
быть равным нулю), являются различные между собой идентификато- 
ры; они перечисляются в операторе-функции в скобках после ее иден- 
тификатора слева от знака равенства и отделяются друг от друга 
запятыми, как это видно из формата оператора. Идентификаторы фор- 
мальных параметров выбираются произвольно, но должны быть раз- 
личными и по типу должны соответствовать способу их использования 
в выражении, составляющем правую часть оператора-функции. 

Так, для сокращения записи приведенных выше операторов можно 
определить функцию 01$, вводя в программу оператор 


ПІБ, ао олады 


Заметим, что так как переменная Е неизменно входит во все выраже- 
ния указанного вида, включать ее в число формальных параметров нет 
никакой необходимости. 

Фактическими параметрами, в отличие от формальных, могут быть 
не только идентификаторы, но и переменные с индексами, а также вы- 
ражения соответствующего типа. (При этом, в отличие от формаль- 
ных параметров, фактические могут быть и одинаковыми). · 

При наличии в программной единице операторной функции 01$ 
рассмотренные выше операторы могут быть переписаны в виде: 


В = ЮІ5(А,В,С)+-.5 
$ = ЗОВТ (015 (АРНА, ВЕТА, $ЗКАР)) 
У = ЮІЅ(Х (І), Ү(І),М(Т)/рІЅ(ХХ(Ј), 0700), ММ) 


При выполнении этих операторов с идентификатором функции 
"15, как с идентификатором любой переменной, связывается значение 
(в данном примере числовое), получаемое в результате подстановки 
фактических параметров в позиции формальных и вычисления значе- 
ния выражения, стоящего в правой части данной операторной функ- 
ции. | 

Операторы, в записи которых встречается указатель функции (т. е. 
идентификатор функции с последующими за ним фактическими пара- 
метрами, заключенными в круглые скобки), называются вызываю- 
ЩИмМи. 

Список фактических параметров в вызывающем операторе должен 
быть согласован со списком формальных параметров, заданным в 
определении функции, в том смысле, что переменные должны быть 
в нем указаны в том же количестве, в том же порядке и должны соот- 
ветствовать им по типу. Так, при использовании неявного определе- 
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ния типа переменных в рассматриваемом . примере запись операто- 
ра вида 


ВЕЗОГТ = 015(1,Е,9,0(1))--9*0(2) 


недопустима, поскольку фактические параметры здесь не согласова- 
ны ни по количеству, ни по типу (1 — переменная целого типа) с опре- 
делением функции Р1$(Х,У, 2). На рис. 30 схематически показано 
взаимодействие операторной 
функции с вызывающими ее 
операторами. | 

Хотя определения опе- 
раторных функций имеют 
вид операторов присвоения, 
они, тем не менее, относятся 
к невыполняемым, поскольку 
эти операторы задают лишь 
форму вычислительной про- 
цедуры (алгоритм), но не 
содержат информации об ар- 
гументах, к которым должна 
быть применена данная про- 
цедура. Эта информация по- 
ступает в момент обращения 
р к функции через ее указа- 

Рис. 30 | тель посредством фактиче- 

ских параметров. Указатель 

функции при этом является не только носителем исходной инфор- 

мации, необходимой для вычисления значения данной функции, но 
и носителем результата этого вычисления. 

Некоторые особенности оператора, определяющего операторную 
функцию, состоят в следующем: 

1. Этому оператору не может быть передано управление. 

2. Формальные параметры в списке — это различные между собой 
идентификаторы (они не могут иметь индексов, а также не могут быть 
выражениями, содержащими знаки операций или константы). 

3. Правая часть оператора может содержать помимо формальных 
параметров нетекстовые константы, переменные простые или с индек- 
сами, указатели встроенных и внешних функций. 

4. Правая часть оператора может содержать указатели других 
операторных функций, однако только таких, которые находятся в 
записи той же программной единицы и предшествуют в ней данному 
оператору-функции. 

5. Идентификаторы формальных параметров (но не идентифика- _ 
тор самой операторной функции!) могут быть использованы для обоз- 


подстановка фоктических параметров 
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> 


оо е 
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начения некоторых других объектов программы тех же типов (в том 
числе объектов данной программной единицы). 

6. Вызов операторной функции . допустим только операторами, 
содержащимися с ней в одной и той же программной единице. Резуль- 
татом вызова операторной функции (посредством ее указателя) являет- 
ся передача вычисленного при заданных значениях фактических 
параметров значения ее правой части и присвоение его этому указате- 
лю. Таким образом, указатель операторной функции может быть 
использован в данной программной единице в любой позиции, допусти- 
мой его типу, в частности, может быть использован в качестве факти- 
ческого параметра некоторой встроенной функции или процедуры- 
функции. Например, допустима запись: ИА" 


1Е($1М(215(В ,Т,5)))3,2,1 
3 А=С»+ВХ --51М(рІЅ(С,В,В)) 


7. Тип возвращаемого значения может определяться неявно, если 
он целый или вещественный; для всех других типов возвращаемых 
значений (логический, повышенной точности, комплексный), а также 
в случае, когда первая буква идентификатора не соответствует типу 
значения целого или вещественного, идентификатор функции должен 
быть описан явно (с помощью оператора спецификации) в данной 
программной единице. А 

8. Операторные функции могут быть заданы в любой программной 
единице; при этом они должны быть в ней расположены ранее всех 
выполняемых операторов и следовать за операторами спецификаций 
при их наличии. 

Пример использования операторной функ- 
ции. 

Применение метода Рунгв-Кутта для решения дифференциального 
уравнения вида а 


при заданном начальном условии у (хо) = уо сводится к последова- 
тельному вычислению цепочки равенств 


хл = А А 
Р =. Е (Хр, 0) 


БВ, и) 
ВВ. (+, ие № 
Р, =. Е (В, и 3) 
Я 1 у А 
ин = и + т (+ 2%, + 2%; + №), 1=0,1,.,., п 
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где й — шаг интегрирования. Пусть требуется проинтегрировать диф- 
ференциальное уравнение 


22 = х? 4- 20? -- Зеу ѕіп х + 5 


на интервале [0, 2] и выдать на печать значение функции в каждой 
двадцатой точке. В качестве шага в. взять й = 0,005, 
в качестве начальных условий у (0) = 
Для сокращения записи программы на ФОРТРАН воспользуемся 
идентификаторами, близкими по написанию к общепринятым обозна- 
чениям и соответствующими неявному способу задания типа. 
Определив по длине интервала и шагу интегрирования число точек. 


2 
560520 = 20, мы можем написать следую- 


щую программу, в которой после каждого завершения внутреннего 
цикла выводится на печать строка, содержащая: номер строки, зна- 
чение Х и значение У. Для упрошения начальные значения в про- 
грамме мы задаем с помощью оператора РАТА. 


Е(О,№) =102--2.«ү92--3.+ЕХР(У)*513(0)--5.0 
РАТА Х,Ү,Н,М/0., 12 ,0.005,20/ 


выдаваемых на печать п = 


ро 2 1=1,М 
РО 1 к= 1,20 
Х=хХ-Н 


ЕК1=Н+Е(Х,У) Ж 
ЕҚ2=Н:Е(ХУН/2.,Ү+ЕКІ1/.) 
ЕКЗ=Н»:Е(Х--Н/2.,Ү-+-ЕК2/9.) 
ЕК4=Н»Е(Х-Н,У--ЕКЗ) 
У=У--(ЕК1--2..ЕК2--2.-ЕКЗ--ЕКА)/6 
СОМТІМОЕ 
ҮВІТЕ (1,3)1,Х,Ү 
3 ЕОВМАТ (2Х,13,5Х,Е10.4,5Х,Р10.4) 
2 СОМТИМОЕ 

ЅТОР 

ЕМР 


— 


В приведенной программе нами введена операторная функция (пер- 
вый оператор программы), заменяя которую мы можем реализовать 
интегрирование любого другого уравнения данного вида, правая часть 
которого может быть задана в виде одного выражения на языке 
ФОРТРАН. Заменяя при необходимости список значений в операторе 
"РАТА, мы можем изменить начальные данные, шаг интегрирования и 
число точек, выдаваемых на печать. 

Заметим, что оба оператора СОМТІМОЕ могут быть без ущерба 
опущены. При этом меткой 1 должен быть помечен оператор, пред- 
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шествующий оператору СОМТІМОЕ с этой меткой, а метка 2 должна 
быть присвоена оператору \/ЕТЕ. 

Задание. 1. Определите операторную функцию, с помощью 
которой можно было бы вычислить: 


_ ОБ(А) = 5+ |А[. ИА 2,5 
затем используйте эту функцию, чтобы вычислить: 


ВІ 0.58 |В|. УВ 2,5 
Е ВЕЕ г 
реБ С? — 45 0,55 — 151. И $3 - 2,5 
о Р] ГЈ 
11. УЗ чу 


2. Введите операторную функцию для вычисления выражения 
4а — (у + а?) · вас помощью $1М и СОЅ. Введенной функции присвой- 
те идентификатор ОМЕ. 


Порция 108 
Операторные функции (продолжение) 


Пример. 

Пусть функция Р определяется как сложная функция от нарамет- 
ров С и Т посредством промежуточных аргументов Х, Ү и 7 равен- 
ствами: 


(С.Т) =С-Т% (С.Т) =@-Т 
2(Х,У)=Х?*У?--СО$(Х2-- У) --1 
Р(С,Т)=5-+2(Х(С,Т),Ү(С,Т))+Х(С,Т) У УСТ) 


Требуется составить программу вычисления значений этой функции 
для всевозможных сочетаний рядов значений параметров С и Т, пред- 
ставленных в виде массивов (соответственно размеров 12 и 8), которые 
должны быть введены с устройства с номером 2. Результатом выпол- 
нения программы должна быть таблица значений функции Р, состоя- 
щая из четырех колонок: 

1. Номер строки 2. Значение С 3. Значение Т 4. Значение Р. 
В начале таблицы должна быть напечатана строка, представляющая 
‘собой заголовок выдаваемой таблицы вида: 


НОМЕР ЗНАЧЕНИЕ С ЗНАЧЕНИЕ Т ЗНАЧЕНИЕ Р 


.. Полученная таблица должна быть выдана на устройство с номе- 
ром 1. 
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Помимо вводимых наборов данных значения функции должны быть 
вычислены еще для двух пар значений параметров С и Т: 


С 1 
Пой — 2.41 
— 2.41 1.0 


и помещены в ту же таблицу после всех остальных. 
Необходимая программа может быть представлена в виде: 


ВЕАІ С(12),Т(8) 
Х(С,Т)=С+- Т2 
Ү(С,Т)=Сь2—Т 
7(Х,У)= ХҮғ *2--СОЅ(Х»2--Үз2)+-1.0 
Р(С,Т) =5.+-2(Х(С,Т), У(С,Т))-+ Х(С,Т)+5 ОВ Т(У(С,Т)) 
МВИЕ (1,4) 
4 РОВМАТ (5Х,5ННОМЕР,БХ 1ОНЗНАЧЕНИЕ, ,С,5Х10Н 
1 ЗНАЧЕНИЕ, |Т,5Х 10НЗНАЧЕНИЕ, Р) 
ЮЕА0(2 0С, Т 
2 РОКМАТ (6512.2) 


К=0 

ро з 1=1,12 
ро з Ј=1,8 
К=кК+1 


Р1==Р(С(І),Т(Ј)) 
з УТТЕ (5) К.С, Т.Р! 
5 РОКМАТ (6Х,13,3(3Х,Е12.6)) 
К=Кк-! 

А=1.7 

В=—2.41 

Р1=Р(А,В) 
Ү/ВІТЕ (1,5) К,А,В,РЕ 

1 


В=1.7 

Р1=Р(А,В) 
ҮВІТЕ (1,5) К,А,В,Р1 
ЅТОР 

ЕМ” 


Обратите внимание на то, что размеры массивов С и Т заданы в 
этой программной единице в операторе типа. 

Задание. 1. Какую роль в этой программе играет перемен- 
ная Қ? Чему равно последнее присвоенное ей значение? 

2. Учитывая, что в качестве фактических параметров могут быть 
использованы константы, упростите часть приведенной в данной пор- 


154 


ции программы, предназначенную для формирования последних двух 
строк таблицы. , 

З. Функция \/ задана как сложная функция от переменных хи у 
посредством промежуточных функций и, о и Е равенствами: 


и (х, у) = х— 0 
о (х, у) = х? — ѕіп у 
Е (и, о) = ее + о + 3 


У (х, у) = 19 (Е (их, у), о (х, 0))) - Ии (х, у) о (х, 0) 


Составьте программу для вычисления таблицы значений функции 
У (х, у) для всех пар значений х и у, заданных соотношениями: 


х= 0,2 +01: К К =12000., 11 
у= — 0,28 +1, І. = 1,9,3, 4 

И 
у= 6,1 + 0,2 .М М=Ь2,..., И 


Таблицу значений выдать на устройство с номером 6. 


Порция 109 
Оператор СОММОМ 


В языке ФОРТРАН имеются средства, позволяющие использовать 
одну и ту же область памяти для хранения данных, общих для двух 
или более программных единиц выполняемой программы — общий 
блок, или общую область памяти. Для определения общих областей 
н указания идентификаторов переменных и массивов, располагаемых 
в этих областях, используется оператор СОММОМ, имеющий сле- 
дующий формат: 


СОММОМ/х/а/х/Ь ... [х [0 


Здесь а, 6, ..., ш — непустые списки, элементами которых могут 
быть идентификаторы простых переменных, идентификаторы масси- 
вов и описатели массивов, размеры которых могут быть заданы только 
константами; 

х, 1=1,2,.., п) — идентификаторы, используемые в качестве 
наименований общих блоков, или пусто. В последнем случае принято 
считать, что речь идет об общем непбмеченном блоке; если х; — не пус- 


ваным). Первые две косые черты в записи непомеченного общего блока 
необязательны. 
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Например, записи 
СОММОМ//А, В, С 


СОММОМ А, В, С 


эквивалентны. | 

Наименования общих блоков подчиняются общим правилам запи- 
си идентификаторов, т. е. могут содержать от одной до шести буквен- 
но-цифровых символов и должны начинаться с буквы. (Напоминаем, 
что использование русских букв, отличных по написанию от латин- 
ских, в записи идентификаторов не допустимо). —— 

Идентификатор, именующий общий блок, может быть использован 
в той же программной единице для идентификации массива, простой 
переменной или операторной функции. 

Переменные и массивы, описанные как объекты некоторого общего 
блока в одной программной единице, будут занимать соответствующие 
голя в той же области памяти, что и переменные и массивы, описан- 
ные как объекты общего блока с тем же наименованием в другой про- 
граммной единице выполняемой программы. При этом, если несколь- 
ко программных единиц используют одну и ту же общую область па- 
мяти, то каждое поле памяти с одним и тем же порядковым номером 
в области определяет одно и то же значение для всех программных 
единиц, несмотря на то, что оно может иметь различные обозначения 
в разных программных единицах. 

Пример использования блоков СОММОМ: 

1-я программная единица СОММОМ /Р/А1, А?, АЗ 

2-я программная единица СОММОМ /Р/НР, РН, РТ 

3-я программная единица СОММОМ /Р/ТО, ТЕ, ТА 

Приведенные операторы СОММОМ, находящиеся в разных про- 
граммных единицах одной выполняемой программы, обозначают сле- 
дующее: для всех трех программных единиц в процессе сборки про- 
граммы будет отведен общий блок Р, в который будут помещаться 
значения трех переменных, причем к первому полю общего блока мож- 
но обращаться в каждой из программных единиц соответственно по- 
средством идентификаторов АІ, НР и ТО, так как вычисляемые в раз- 
ных программных единицах значения переменных АІ, НР и ТО будут 
помещаться в одну и ту же единицу памяти. Это же относится к пере- 
менным А2, РН, ТЕ и АЗ, РТ, ТА. При этом не только экономятся 
единицы памяти, но (что более важно!) также устанавливается связь 
между программными единицами: определяемые значения перемен- 
ных в одной из этих программных единиц становятся доступными для 
использования непосредственно в другой, если они отнесены к обще- 
му для них блоку памяти. 

В общем блоке переменные и массивы располагаются в порядке, 
определяемом последовательностью их написания в операторе 
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СОММОМ. Списки в операторе СОММОМ, относящиеся к общему 
блоку с одним и тем же наименованием, рассматриваются как один 
список. Например, оператор 


СОММОМ /А/К, М, ГВ/С, Н, Р/А/КА, МВ, КВ 


эквивалентен оператору 
СОММОМ /А/К, М, І, КА, МВ, КВ/В/С, Н, Р 


Это замечание относится также к общему непомеченному блоку. 

Если некоторая программная единица содержит несколько опера- 
торов СОММОМ, то все они, начиная с первого, рассматриваются как 
один оператор СОММОМ, список элементов которого составлен из 
списков всех этих операторов и записан в порядке их появления в 
программе, т. е. каждый очередной оператор СОММОМ в данной про- 
граммной единице считается продолжением предыдущего. 

Если идентификатор массива или описатель массива появляется 
в списке оператора СОММОМ, то все элементы этого массива, начиная 
с первого элемента, помещаются в соответствующий общий блок. 
Обращаем Ваше внимание на то, что в списки операторов СОММОМ 
нельзя помещать переменные с индексами (всякое данное, записан- 
ное в скобках после идентификатора в списке оператора СОММОМ 
воспринимается как описание размеров массива); если какой-либо 
элемент массива требуется поместить в общую область, то в нее дол- 
жен быть помещен весь этот массив. Такое требование связано с при- 
нятой в ЭВМ концепцией размещения массивов и элементов из общей 
области в последовательности следующих друг за другом единиц 
памяти. Следующий пример иллюстрирует порядок размещения объек- 
тов из общих блоков в памяти машины. Пусть в первой программной 
единице имеется оператор: 


СОММОМ /В/Р, Т, Н (3) 
(Р и Т — простые переменные). 


Память в помеченном общем блоке В будет распределена следую- 
щим образом: 


Мяти 


Элементы 

общего бло- Р Л; Н (1) Н (2) Н (3) 
ка 

ааа а а 1+2 3 144 


Если теперь во второй программной единице будет задан оператор 
СОММОМ /В/А(3), В, С 
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то значением переменной А (1) будет содержимое і-й единицы памяти, 
значением А (2) — содержимое # -- 1-й и значением А (3) — содер- 
жимое і -- 2-й единицы памяти; содержимое і + 3-й и і + 4-й единиц 
соответственно будут отведены под переменные В и С. 

Если в списке оператора СОММОМ указан только идентификатор 
массива, то размеры этого массива должны быть описаны в операторе 
РрІМЕМ№МЅІОМ или операторах типа в данной программной единице. 

Задание. Напишите оператор для размещения в общем блоке 
памяти двумерных массивов С и Т, содержащих по 4 столбца и З строки. 
Дайте этому блоку наименование /РА/. 


Порция 110 
Соответствие общих блоков 


Размер общего блока — это сумма единиц памяти, необходимой 
для размещения объектов, указанных в операторах СОММОМ и 
ЕОШТУАГЕМСЕ (этот оператор будет рассмотрен далее). Размеры 
помеченных общих блоков с одним и тем же наименованием в разных 
программных единицах, которые включаются в одну выполняемую 
единицу, должны быть одинаковыми. Размеры непомеченного общего 
блока в различных программных единицах выполняемой программы 
могут быть различными, однако эти размеры во внешних процедурах 
не должны превосходить размер непомеченного общего блока в глав- 
ной программе. 

Пример. , 

Предположим, что выполняемая программа состоит из четырех 
программных единиц, которые содержат следующие операторы 
СОММОМ: 

1-я программная единица: СОММОМ /Т/К,М,М№//В5,ВТ,КО/К/А,С 

2-я программная единица: СОММОМ //А2,А3/К/5К,ТВ 

3-я программная единица: СОММОМ /Т/І,Ј,Ј1І//АК,ВК,СК,ЮК 

4-я программная единица: СОММОМ /Т/11,12,13/К/Р,О 

Ниже показаны порядок и соответствие элементов в общих блоках: 


Общий блок Т Общий блок К 
1-я прог. ед. | Е | М | М 1-я прог. ед. | А | С 
2-я прог. ед. | | | 2-я прог. ед. | 56 | ТВ 
3-я прог. ед. | 1 | Ј | Л 3-я прог. ед. | | 
4-я прог. ед. | п | 2 | [3 4-я прог. ед: | р | |6] 
Единицы памяти і | 14-1 | 12 Единицы памяти | П 1-1 | 
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Непомеченный общий блок 


1-я прог. ед. К | ВТ КО | 
2-я прог. ед. | А? АЗ | | 
3-я прог. ед. | АВ | ва | ск | ок 
4-я прог. ед. | | | | 

| | 


Единицы памяти | в 


64-1 | #+2 64-3 


Значения переменных повышенной точности и комплексных пере- 
менных считаются расположенными в двух последовательных единицах 
памяти. 

Пример сопоставления простых и комп- 
лексных переменных в общем блоке: 

1-я программная единица: СОММОМ /С/А,В,С,р,Е,Е,С 

2-я программная единица: СОМРІЕХ В,$,Т 

СОММОМ /С/В,5,Т,0 


Соответствие элементов в блоке С: 


1-я прог. ед. А | В С | р | Е | Е | а 
2-я прог. ед. |. в | $ | Т | Ч 
Единицы памяти | т | т- | т-- 6 


е ен 


В этом примере значение переменной А является значением ве- 
щественной части комплексного числа, обозначенного идентификато- 
ром К, а значение переменной В — значением мнимой части этого 
числа. | 

В списках оператора СОММОМ запрещается употреблять формаль- 
ные параметры функций и подпрограмм. 

Разберем еще один пример. 

Пусть четыре программные единицы используют общий блок ВІ, 
при этом первая программная единица использует первые десять еди- 
ниц этого блока; вторая — первые три и последние три из указанных 
десяти; третья — со второй по восьмую, а четвертая — с пятой по 
двенадцатую. В таком случае: 

во-первых, общий блок будет содержать 12 единиц памяти; 

во-вторых, в каждую из названных четырех программных единиц 
должен быть включен оператор СОММОМ, содержащий (помимо наи- 
менования блока В1) двенадцать единиц памяти (на что особо 
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обращаем Ваше внимание!) независимо от того, что в каждой данной 
программной единице используются лишь те или иные из них; 

в-третьих, необходимые (используемые в каждой данной програм- 
мной единице) объекты должны указываться в соответствующих по- 
зициях в операторе СОММОМ, а в неиспользуемые позиции должны 
быть поставлены некоторые «фиктивные» идентификаторы, т. е. иден- 
тификаторы, не используемые данной программной единицей. 

Обозначим в приведенном примере с четырьмя программными еди- 
ницами идентификаторы используемых в них объектов через 
МІ, АХ... АЮ: ВИ, В®..., 801... С77Е1, 2, ...„„ 68. нке 
тивные переменные обозначим через РІ, Е2, ... 

Тогда в каждой из четырех программных единиц в нашем примере 
должны быть указаны, соответственно, следующие операторы: 

1-я программная единица: СОММОМ /В1/А1,А2,АЗ,А4,А5,Аб, АТ, 
А8,А9,А10,Е1,Е2 

2-я программная единица: СОММОМ /В1/В1,В2,ВЗ,Е1,Е2,Е3,Е4, 
В4,В5,В6,Е5,Е6 

3-я программная единица: СОММОМ /ІВІЕІ,СІ,С2,С3,С4,С5,С6,С7, 
Р2,ЕЗ,Е4,Е5 

4-я программная единица: СОММОМ /ВІ/Е1,Е2,Е3,Е4,Е1,Е2,Е3,Е4, 
Е5,Е6,Е7,Е8 

Задание. 1. Как определяется размер общего блока? | 

2. Могут ли одинаково помеченные общие блоки в разных единицах 
одной выполняемой программы иметь разные размеры? 


Порция 111: 
Помеченные и непомеченные общие блоки 


Давайте рассмотрим вопрос о том, чем отличаются помеченные 
общие блоки от непомеченных и когда возникает необходимость в ис- 
пользовании помеченных общих блоков. 

Как отмечалось выше, размеры помеченных общих блоков во всех 
программных единицах, где используются эти блоки, должны быть 
одинаковыми. Размеры непомеченного общего блока в разных про- 
граммных единицах выполняемой программы могут быть разными. 

Кроме того, переменным из помеченного общего блока можно при- 
сваивать начальные значения оператором РАТА в сопрограмме дан- 
ных (см. порцию 132). Переменным из непомеченного общего блока 
присваивать начальные значения оператором РАТА нельзя. Эти пе- 
ременные могут быть определены только при указании их идентифи- 
каторов в операторе ввода, при использовании их в левой части опера- 
тора присвоения, в качестве управляющей переменной в операторе ро 
или в качестве фактического параметра процедуры. | 

На первый взгляд может показаться, что проще было бы опреде- 
лить в выполняемой программе один общий блок и поместить в, него 
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все переменные и массивы, значения которых мы хотим использовать 
в разных программных единицах. 

Но посмотрим, во что выливается эта кажущаяся простота. Пред- 
положим, что некоторая выполняемая программа состоит из главной 
программы, трех подпрограмм и двух внешних функций. Все указан- 
ные программные единицы используют некоторые переменные из об- 
щего блока, причем: 

главная программа и подпрограмма Рі используют переменные 
А, ВЮ, №, 

главная программа и подпрограмма Р2 — переменные Е, Е, С, Н, 

главная аж внешняя функция Е] и подпрограмма РЗ — пе- 
ременные І, Ј, К, І, М, М, 

главная программа, подпрограммы РІ и Р2 и внешняя функция 
Е2 — переменные О, Р, 0, В, 

подпрограмма Р2 и подпрограмма РЗ — переменные $5, Т, О, У, 

подпрограмма РІ и подпрограмма РЗ — переменные Ұ, Х, У, 2. 

То есть полный список переменных в общем блоке был бы таким: 

А, В, С, р, Е, 187 а, И, Г, Ч. <, 5, М, М, о, 27 ©, К, 5, 27 
м 8. 

Поскольку отдельное значение в общем блоке памяти определяется 
порядковым номером поля, который соответствует порядковому номе- 
ру идентификатора переменной в списке оператора СОММОМ, нам 
пришлось бы в каждой из программных единиц повторять весь список 
оператора СОММОМ, чтобы нужные нам переменные оказались в со- 
ответствующих позициях. Однако это неудобно, так как длинный спи- 
сок оставляет больше возможностей для ошибок. 

_ Разбив описанный выше непомеченный общий блок на несколько 
помеченных блоков, мы в каждой из программных единиц просто за- 
пишем: 

главная программа: СОММОМ /А/А,В,С,Р/В/Е,Е,а,Н/СЛ,У,К,Г,,М, 

М,/2/О,Р, (©), В 

подпрограмма Р1: СОММОМ /А/А,В,С,р/р/о,Р,О,В/Е/\,Х,Ү,7, 

подпрограмма Р2: СОММОМ /В/Е‚Е,а,Н/О/О,Р,О,В/Е/З,Т,О,М, 

подпрограмма РЗ: СОММОМ /Е/Љ№,Х,Ү,2/Е/5,Т,0,У/С/,Ј,К,.,М, 
№, 

внешняя функция Е1: СОММОМ /СЛІ,Ј,К,1,М,М, 

внешняя функция Е2: СОММОМ /С/І,Ј,К,1,М,МР/О,Р,О,В 

Для наглядности мы обозначили переменные в помеченных общих 
блоках, используемых в разных программных единицах, одинаковы- 
ми идентификаторами. При написании реальных программ этого мож- 
но не делать. 

Порядок следования наименований общих блоков в каждом из при- 
веденных операторов СОММОМ (с соответствующими списками) произ- 
вольный. 
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Как видно из приведенного примера, кроме тех преимуществ, о ко- 
торых говорилось выше, использование помеченных общих блоков 
придает компактность записи оператора СОММОМ. 


Порция 112 | 
Оператор Е ЛУАГЕМСЕ 


Оператор ЕӦОІУАТЕМСЕ используется для совмещения памяти 
двух или более объектов одной программной единицы (в отличие от 
оператора СОММОМ, посредством которого в одной и той же единице 
памяти размещаются значения объектов из разных программных 
единиц). Формат записи оператора ЕООІУАГЕМ№СЕ следующий: 


ЕООШУАГЕМСЕ (№,), (®,), ... , (6,) 


Здесь №, — списки, содержащие не менее двух элементов, значения · 
которых помещаются в одну и ту же единицу памяти. Элементами спис- 
ка могут быть: 

1. Идентификатор простой переменной. 

2. Идентификатор переменной с индексами, причем список ин- 
дексов может содержать только константы и их количество должно 
соответствовать размерности массива, указанной в его описателе, 
или быть равным единице (в последнем случае он рассматривается 
в качестве приведенного индекса). Напоминаем, что любой дву- или 
трехмерный массив может быть преобразован в одномерный массив 
такого же размера согласно функции упорядочения элементов мас- 
сива. Преобразование трехмерного массива в двумерный недопустимо. 
Так как элементы массивов размещаются в памяти упорядоченно, 
то эквивалентность двух элементов разных массивов приводит к сов- 
мещению в памяти остальных элементов этих массивов. 

Пример: 

РрІМЕМЅІОМ Рі (2,2),51(3),Т1(3,2) 

ЕООШҮУАТІЕМСЕ (С,р,Е),(Т1(1,1),А,В),(Р1(2),51(1),К) 

В этом примере массив РІ описан как двумерный, а его элемент в опе- 
раторе ЕОШІУАТЕМСЕ записан с одним индексом. Это значит, что 


этот индекс является приведенным. Распределение памяти для пере- 
менных К, А, В, С, р, Е и массивов РІ, 51 и ТІ приводится ниже. 


Первый список оператора ЕООЛУАГЕМСЕ (С аи Е) 


С 
переменные и элементы массивов р 
Е 


единицы памяти а | а! 
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Второй список оператора ЕӦШІҮАТЕМСЕ (ТІ (1, 1), А, В) 


Т1 (1, 11 ТІ (2, 1) ТІ (3, ТІ (1, 2) ТІ (2, 2) ТІ (8, 2) 


| до 


переменные и элементы мас- 


сивов А 
В = 
единицы памяти і | И | 7-2 | 1+3 | 1-64 | 1-5 


Третий список оператора ЕЛҮАТ.ЕМ№СЕ (РІ (2), $1 (1), К) 


рі (1,1) | рі, | Ра, 9) | РІ С, 2) 
переменные и элементы 
еннен $1 (1) 51 0) 51 (8) 
л Е 6 а река" ово ИН 
| единицы памяти | і | 14-1 | 1+2 | і-- 3 


Типы объектов одного списка могут быть различными, т. е. до- 
пускается совмещение памяти для объектов, занимающих по две 
единицы памяти (комплексные и повышенной точности), и объектов, 
занимающих по одной единице памяти (целые, вещественные, логи- 
ческие).. Если’ объявляется эквивалентность между объектами, зани- 
мающими одну единицу памяти, и объектами, занимающими две еди- 
ницы памяти, то совмещение выполняется по первой из двух единиц 
памяти. . 

Пример: 


РОЧВЕЕ РВЕСІЅІОМ р(3),02 

СОМРІЕХ В1(4) 

РІМЕМЅІОМ А(2,4),С(6) 

ЕОШУАІЕМСЕ (А(3),051)),(02,С(3),81(3)) 


Память для переменных, перечисленных в операторе ЕОЧУТУА- 
ГЕМСЕ будет распределена следующим образом: 


Первый список оператора ЕШУА ЕМСЕ (А (3), РИ (1)) 


А(1, 1)|А (2, АС, ос 2)А (1, зле, 3)]А (1, зле, 4) 


р (1) ” (2) ” (3) 
единицы памяти 2 НЗ 19-3 248 24| +6147 


переменные и элементы 
масс ивов 
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Второй список оператора ЕОТМУАГЕМСЕ (02, С (3), ВІ (3)) 


МЕЛ но а: уе 


переменные и элементы | | (1) | © 0) | С (3) | С. (4) | С (5) | С (6) 


массивов 

ма | ко | мо | во 
единицы памяти | ; |2 1[2+2 |з [+4 ев [уе рет 
ыы | Пи, аА 


Если в списке оператора ЕОТМЛУАТЕМСЕ содержится объект из 
блока СОММОМ, то все объекты этого списка будут расположены в 
этом общем блоке (поскольку при распределении памяти раньше вы- 
деляются поля для общих блоков). р 

Оператор ЕООІУАТЕМСЕ не влияет на распределение памяти 
внутри общего блока, он может привести лишь к его удлинению. 

Такое удлинение допускается лишь в том случае, когда общий блок 
расширяется за пределы последней единицы памяти. Оператор 
ЕФОІУАТЕМСЕ не должен расширять общий блок в сторону его 
начала (так как это потребовало бы перераспределения памяти, отво- 
димой под общие блоки). 

Пример: 


РІМЕМЅІОМ $Т(4),Т8(6) 
СОММОМ /ВВ/5Т,5В,5У 
ЕОШҮУАГЕМСЕ ($Т(3),Т$(2)) 


По оператору СОММОМ память в блоке ВБ будет распределена 
следующим образом: 


Элем б 

ыы ЅТ (1) | т @) | т о $Т в | ЗК аи 
ее ЕНТ." _ РЕНА ИНЫЕ. ОМС КЕКЕ. 
А | 1 | 6+2 #3 | 4-4 | #5 
(я _ БАИИБИРНЦРРЗНИНИЕА ЈРННЬССУРОР РНР | ОИ, РНИИ ИИ ДРЕ. 


Оператор ЕСТЛУАТЕМСЕ расширяет общую область в сторону 
конца и распределение памяти будет таким: 


Единицы памяти 


это | эт эт ЗТ (4) 


| Зв | Ѕу | 
Элементы общего 
блока 


Т$ (3) 


Т$ (1) | Т$ (2) 


ТЗ (4) | Т$ (5) | Т (6) 
Единицы памяти | Е | | н | ка| не вн | 2+6 
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Еще один пример | 
РІМЕМЅІОМ 57(4),Т5(6) 


СОММОМ /ВВ/5Т,5В,5\ 
ЕООШУАГЕМСЕ (5Т(2),Т5(4)) 


Эквивалентность $Т(2) и Т$(4) требовала бы такого распределе- 
ния памяти: 


| $Т (1) | 5Т (2) | $Т (3) | УТ (4) 


а | зу 


Массив ТЗ в общем блоке разместить нельзя, его пришлось бы 
расширить в сторону начала, поэтому подобная эквивалентность не- 
допустима. - 

Оператор ЕФТТУАГЕМСЕ может установить косвенную эквива- 
лентность между объектами программной единицы. Например: 

ЕООУАТЕМСЕ (К,5,Т),(5,У) 

В этом примере переменная У косвенно эквивалентна переменным 
Бит. 

Объекты, входящие в общий блок, не могут быть объявлены экви- 
валентными между собой, поэтому установление косвенной эквива- 
лентности между переменными общего блока А и Р, как это имеет 
место в следующем примере, недопустимо: | 


СОММОМ А,В,С,р 
ЕОЧТУАГЕКСЕ (Х,Ү,А),(Х,р) 


С использованием оператора Е ЛУАГЕМСЕ связано еще одно пра- 
вило, заключающееся в том, что в списке оператора ЕООТУАГЕМСЕ 
может содержаться не более одной переменной, которая ранее была 
определена как эквивалентная. Причина этого ясна из приведенного 
ниже примера: 

ЕООІУАТЕМ№СЕ (р,Е,Е) 

ЕОЧУАГЕМСЕ (Н,5,Т,) 

ЕОЛУАТЕМ№СЕ (р,Н) 

Первый из перечисленных операторов ставит в соответствие трем пе- 
ременным Р, Е и Е одну единицу памяти, скажем, ячейку і. Второй 
оператор помещает в ячейку памяти і +- 1 переменные Н, $ и Т. Тре- 
тий же оператор пытается поставить в соответствие переменным Н и р 
одну и ту же единицу памяти. Но это невозможно, поскольку перемен- 
ной Ю уже соответствует ячейка 4; а переменной Н — ячейка {і - 1. 
Поэтому третий оператор ЕООІУАТЕМ№СЕ, который содержит две 
переменные, определенные ранее как эквивалентные, недопустим. 


ТЗ (1) Т$ (2) Т5 (3) | Т$ (4) Т5 (5) | Т$ (6) 
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Задание. В каждом из приведенных ниже операторов или груп- 
пе операторов Е ЛУАГЕМСЕ допущена ошибка. Найдите ее. 
а) ЕОМУАГЕМСЕ (А,В,С)(С,р) 
6) ЕОІЛУАТЕМСЕ (А,В,С) ,(Е,р),(А,Е,Е) 
в) СОММОМ /С/В(2,2),А(3,4) 
РІМЕМ№МЅІОМ К (3,2) 
ЕОШУАТЕМСЕ (В(2,1),В (4)),(А(1),С) 


Порция 113 
Внешние функции 


При всей своей очевидной полезности для написания программ опе- 
раторные функции имеют три серьезных ограничения: их определяю- 
шая процедура состоит из одного оператора; с их помощью можно вы- 
числять только одно значение; ими можно пользоваться только в той 
программной единице, в которой они определены. | 

Этих ограничений не имеют внешние функции, к рассмотрению 
которых мы переходим. 

По своему действию внешние функции аналогичны операторным. 
Обращение к внешней функции, как и для других классов функций 
(операторных, встроенных), производится с помощью ее указателя 
(определение последнего то же, что и для всех прочих типов функций). 
Указатель любой функции может быть использован в качестве пер- 
вичного выражения в соответствующих выражениях в программе. 

Так же, как и для других классов функций, с указателем внешней 
функции связывается единственное значение, вырабатываемое про- 
цедурой ее вычисления при заданных этим указателем значениях 
фактических параметров. Вычисленное значение передается через 
указатель функции в точку вызова данной процедуры-функции. Од- 
нако, в отличие от операторных функций, определяемых внутри соот- 
ветствующих программных единиц и компилируемых вместе с ними, 
внешние функции оформляются в виде отдельных («внешних») про- 
граммных единиц, компилируются независимо от других программных 
единиц и благодаря этому могут быть использованы различными про- 
граммными единицами и в разных выполняемых программах. | 

Еще одно важное отличие внешних функций от операторных со- 
стоит в том, что процедура выполнения внешней функции может со- 
стоять из любого необходимого количества операторов ФОРТРАНа. 
Вследствие этого внешняя функция может присваивать значения не- 
которым другим переменным, кроме той, которая определяется ее ука- 
зателем, или даже целым массивам (что может оказаться полезным 
для ускорения вычислений), а также в процессе выполнения опреде- 
ляющей ее процедуры может осуществляться вывод во внешнюю сре- 
ду тех или иных значений переменных или массивов посредством 
выполнения соответствующих операторов вывода. 
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Существенную особенность внешних функций составляет то, что 
преемником результата вырабатываемого ею значения и передавае- 
мого через указатель в вызываемую точку программы является иден- 
тификатор этой функции; поэтому процедура вычисления функции 
в числе своих операторов должна содержать по меньшей мере один 
оператор, определяющий ее значение, например оператор присвое- 
ния, левая часть которого является ее идентификатором. При этом, 
каковы бы ни были исходные данные, при каждом выполнении процеду- 
ры вычисления внешней функции должно иметь место определение (во2- 
можно с последующим переопределением) значения ее идентификатора. 

Идентификаторы внешних функций, как мы уже заметили ранее, 
вводятся составителем программы и их выбор подчиняется общим 
правилам. Напомним (см. порцию 15), что тип возвращаемого внешней 
функцией значения может определяться неявно, если он вещественный 
или целый; для всех других типов возвращаемых по указателю зна- 
чений, а также в случае, когда первая буква идентификатора не соот- 
ветствует типу значения целого или вещественного, идентификатор 
функции должен быть описан явно (см. порцию 15). 

Задание. Назовите отличия внешних функций от операторных. 


Порция 114 
Внешние функции (продолжение) 


Программная единица, предназначенная для реализации процеду- 
ры вычисления внешней функции, должна начинаться оператором 
ЕОМСТІОМ, имеющим следующий формат: 

Е ЕОМСТІОМ $ (г) 
Или 
ЕОМСТІОМ 5 (и) 
Здесь $ — идентификатор данной функции; „б 
г — список формальных параметров данной функции. Если 
количество параметров больше одного, то параметры в 
списке отделяются друг от друга запятыми; 
{— один из спецификаторов типа: ВЕАІ, 1МТЕСЕВ, 
ГОСТСАГ, РООВІЕ РВЕСІЅІОМ, СОМРІЕХ. 

В качестве формальных параметров внешних функций допуска- 
ются идентификаторы (различные) переменных, массивов или внешних 
процедур. Тип возвращаемого в вызывающую точку программы зна- 
чения, вырабатываемого внешней функцией, определяется специфи- 
катором, указываемым в операторе ЕОМСТТОМ в случае первого из 
приведенных видов его формата, или определяется по первой букве 
идентификатора данной функции в случае. формата второго вида, что 
возможно лишь для вещественного и целого типов. 

Идентификаторы формальных параметров не могут быть указаны 
в списках операторов ЕФОЛҮАГЕМСЕ, СОММОМ и РАТА в 
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процедуре, определяющей данную функцию. Что касается идентифи- 
каторов внешних функций, то они не могут появляться ни в одном 
из невыполняемых операторов в определяющих их процедурах, за ис- 
ключением операторов ЕОМСТ1ОМ, где появление этих идентификато- 
ров непосредственно после служебного слова ЕОМСТІОМ№ является 
обязательным. 

В конце записи вычислительной процедуры, определяющей внеш- 
нюю функцию, проставляется конечная строка ЕМО. Между первым 
оператором процедуры-функции ЕОМСТТОМ и ее конечной строкой 
нроцедура может содержать любые операторы, кроме операторов 
ВГОСК РАТА, ЗОВКОЧТМЕ, $ТОР или ЕОМСТІОМ, а также не 
может содержать операторов, которые прямо или косвенно ссылаются 
на определяемую функцию (поскольку рекурсивные обрашения к 
‘процедурам в языке ФОРТРАН запрещены). 

Среди всех операторов, размещаемых между первым оператором 
ЕОМСТІОМ и конечной строкой, должен быть по меньшей мере один 
оператор КЕТОКМ (и хотя бы еще один выполняемый оператор, 
определяющий значение идентификатора функции). При этом тре- 
буется, чтобы при любых исходных данных выполнялся в конечном 
счете один из операторов КЕТОКМ, которым и завершается выпол- 
нение процедуры. Присвоенное в процедуре к этому моменту значение 
идентификатора функции является вычисленным значением функции. 

Рассмотрим пример использования внешней функции: 

Пусть в программе имеются операторы: 

ТЕ(А«А—У»2)1,2,3 

ІТ КЕҮ1=—1 

СО ТО 4 
2 КЕҮІ=0 
ЗО ТО 4 

3 КЕҮ1=1 

_ 4 1Е(В,В—5=Т)5,6,7 

5 КЕУ2=—1 

СО ТО 8 

6 КЕУ2=0 

СОТО 8 

7 КЕҮ?=1 

8 ІЕ(КЕҮ1+КЕҮ2)9,10,11 


9 
10 


1] 
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В приведенном участке программы дважды вычисляются выраже- 
ния по одной и той же формуле и выполняются одинаковые присвое- 
ния значений целой переменной в зависимости от знака результата выра- 
жения или при равенстве его нулю. Чтобы не повторять запись одних и 
тех же действий в программе несколько раз, повторяющуюся последс- 
вательность действий можно описать в виде внешней функции: 


ҒОМСТІОМ КЕҮ(А,В,С) 
ІЕ(А-А—В+С)1,2,3 


1 КЕУ=—1 
КЕТОКМ 

2 КЕҮ=0 
КЕТОКМ 

3 КЕУ= 
КЕТОКМ 
ЕМ” 


Используя функцию КЕҮ, первоначальный участок программы 
перепишем в виде одного оператора 


ІЕ(КЕҮ(А,Ү,2)*КЕҮ(К,5,Т))9,10,11 
9 


10 


11 


З адание: Проверьте правильность написания следующих опе- 
- раторов: 

а) ЕОМСТЮМ АВЅОІМАІ. (Х,У,2) 

б) ЕОМСТІОМ РЕАЕКА, В, М) 

в) ЕОМСТІОМ ВЕАР(К,І„№М) 

г) ЕОМСТІОМ ОГАБ(О(9),В) 

д) ЕОМСТІОМ ТЕ(А,1,В--С) 


Порция 115 
Внешние функции (продолжение) 


Разберем подробно описание внешней функции комплексного типа 
(обозначим ее идентификатором АМ), определяющей тот элемент дву- 
мерного массива комплексных чисел АК(15,15), модуль которого 
является максимальным. 
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СОМРЕЕХ ЕОМСТІОМ АМ(АК) 
СОМРГЕХ АК,АЕ 

РІМЕМЅІОМ АК(15, 15), АЕ(225) 
ЕОМУАТЕМСЕ (АК(1,1), АЕ(1)) 


А=0.0 
М=1 
рО 1 К=1,225 


1Е(САВ$(АЕ(К))—А)1,1;2 
2 А-САВУАЕСК 


1 СОМТІМОЕ 
АМ=АЕ(М) 
КЕТОВМ 
ЕМ” 

В данной процедуре нами посредством оператора ЕОЇЛУАТЕМСЕ 
определен одномерный комплексный массив ДЕ, имеющий то же число 
членов, которое имеет исходный массив, определяемый формальным 
параметром АК. Это позволило реализовать поиск элемента с макси- 
мальным модулем посредством одинарного (а не двойного) цикличе- 
ского процесса. (Заметим при этом, что реализация одинарного цикли- 
ческого процесса, вообще говоря, экономнее по времени трансляции 
и‘ выполнения программы). . 

В области оператора РО для определения модуля элемента комплек- 
сной матрицы АЕ(К) мы использовали указатель основной внешней 
функции САВ (см. табл. 24, стр. 282). 

Задание. 1. Запишите приведенную в этой порции програм- 
мную единицу без оператора Е/ОТУАГЕМСЕ. 

2. Составьте описание внешней функции для определения номера 
последнего из максимальных по модулю элементов массива комплекс- 
ных чисел АК (100). 

3. Составьте описание внешней функции для определения мини- 
мального по модулю элемента массива комплексных чисел АК (20). 

4. Составьте описание внешней функции Е для вычисления разнос- 
ти между величиной максимального и минимального из модулей эле- 
ментов матрицы В(20,30), состоящей из вещественных элементов. 

5. Какие изменения необходимо внести в программу, составлен- 
ную в задании 4, для решения той же задачи в случае, когда элементы 
матрицы являются комплексными числами? - 


Порция 116 
Связь внешней функции с вызывающей программной единицей 
После того как мы рассмотрели правила написания внешних 


функций, необходимо выяснить, каким образом в вызывающей про- 
грамме производится к ним обращение. 
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Типичным примером такого обращения может служить. оператор 
присвоения в вызывающей программной единице, обращающейся к 
вычислению функции КЕУ, рассмотренной в порции 114. 

15=1[(3) -КЕҮ(Х,Ү(5),2(1,1)) 
Таким образом, для того чтобы в вызывающей процедуре использо- 
вать процедуру вычисления внешней функции, необходимо только на- 
писать ее идентификатор с последующими за ним в скобках фактиче- 


Главная программа 


осо 
теве 6 
еове о 
ео ее в 
ео оо о 


Замена формальных аргументов фактическими 


оо ооо оо о 
Ое е 


№ ЗА 


0 Мр(6,2,Е) 


ооо[о ее оо Фо оо ее 
а=] 
> 
>< 


ео о ео Сео е о о 
= 
ооо Гев ее е 
> 
ео ево о 1 
сз 
оо оо одде о ооо е о 
Е] 
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ДЕ Замена формальных параметров фактическими Я 


Рис. 31 


скими параметрами там, где требуется получить ее значение, т. е. 
записать ее указатель. 

Во избежание неопределенности идентификаторы для различных 
внешних функций должны быть выбраны различными. 

Когда при выполнении оператора встречается указатель какой- 
либо внешней функции, производится передача управления к началу 
процедуры вычисления данной функции (т. е. к соответствующему 
оператору ЕОМСТІОМ№). После завершения процедуры, что соответст- 
вует выполнению в ней оператора КЕТОКМ, управление передается 
вызывающей единице программы в точку ее прерывания, т. е. в точку 
вызова данной функции. На рис. 31 схематически изображено взаимо- 
действие внешних функций с вызывающей программной едининей. 

Следует заметить, что стандарт языка разрешает обращение из 
одной программной единицы к некоторым другим (быть может, не- 
скольким) программным единицам в процессе выполнения тела 
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вызванной программной единицы — процедуры вычисления функции 
или подпрограммы (о подпрограммах речь идет несколько далее). 

Глубина вызовов подобного рода ничем не ограничивается. Однако 
цепочка вызовов должна быть в любом случае не замкнутой: никакая 
программная единица непосредственно или посредством других про- 
граммных единиц не может обращаться к самой себе (рекурсивный 
вызов процедур языком ФОРТРАН не допускается). 

Фактические параметры функции должны согласовываться с фор- 
мальными в порядке следования, типе и числе. Этими параметрами, 
в отличие от формальных, могут быть: 

идентификаторы переменных, 

идентификаторы элементов массивов (переменные с индексами); 

идентификаторы массивов; 

любые другие выражения; 

идентификаторы процедур — внешних функций или подпрограмм. 

Фактические параметры в рассмотренном выше примере—Х, Ү (5), 
2 (1,1) — должны согласовываться с формальными параметрами А, В, 
С оператора ЕОМСТТОМ. В данном случае это требование выполняет- 
ся. Имеются три параметра и все они вещественного типа. 

Совокупность операторов, определяющих внешнюю функиию, на- 
зовем телом данной функции. 

Как уже было отмечено, формальными параметрами внешних функ- 
ций (как и операторных, и подпрограмм) могут быть только иденти- 
фикаторы; последние перечисляются в списке формальных парамет- 
ров в первом операторе тела функции. При этом помимо того, что фор- 
мальные параметры могут быть идентификаторами простых перемен- 
ных, они могут также быть и другими объектами (см. порцию 102), 
в частности идентификаторами массивов. Последнее означает, что в 
теле процедуры-функции формальные параметры, являющиеся иден- 
тификаторами массивов, могут использоваться с последующими за 
ними индексами, число и значения которых должны удовлетворять 
общим требованиям языка в отношении значений индексов (согласо- 
вание их количества и значений с описанием соответствующего мас- 
сива, требования относительно вида индексных выражений). Допол- 
нительные требования, касающиеся размеров массивов, идентифика- 
торы которых являются формальными параметрами, следующие: 

1. Размеры массивов, идентифицируемых формальными парамет- 
рами, не должны превышать размеры массивов, определяемых соот- 
ветствующими фактическими параметрами. 

2. Размерность таких массивов должна быть равной размерности 
соответствующих массивов, определяемых соответствующими факти- 
ческими параметрами, или должна быть равной единице. 

З. Описание массивов, идентифицируемых формальными пара- 
метрами, может быть задано только операторами Р1МЕМ$ТОМ или опе- 
раторами спецификации типа (и не может быть задано оператором 
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СОММОМ, как это может быть сделано для других, возможно, исполь- 
зуемых в теле данной внешней функции массивов). 

4. Все используемые в теле процедуры-функции массивы, у кото- 
рых хотя бы один из размеров задается переменной (их принято на- 
зывать массивами с регулируемыми размерами), должны быть вклю- 
чены в список формальных параметров, в который также должны быть 
включены идентификаторы всех переменных, определяющих регули- 
руемые размеры массивов. 

Фактические параметры внешних функций могут быть как просты- 
ми переменными, так и выражениями соответствующих типов, раз- 
личными или совпадающими, а также идентификаторами массивов и 
процедур. 

В качестве примера можно привести следующий оператор в вызы- 
вающей программной единице: 


МОЅТ= (1) —ІМТЕВ(М,Ј/3+М(9)) 


Первый оператор внешней функции с идентификатором ІМТЕВ может 
иметь вид: 


ЕОМСТІОМ ПМТЕК(ТА 1В) 


Здесь фактические параметры в указателе (№М,Ј/3*№(2)) согла- 
суются с формальными параметрами ІА, ІВ в порядке, числе и типе. 
Напомним, что в операторах ввода-вывода весь массив может быть 
представлен лишь одним своим идентификатором без индексов. Сле- 
дующая последовательность операторов, например, вполне допустима: 


Р1МЕМ$1ОМ АВВАУ(10). 
ЕАР (9, І)АВВАҮ 
1 РОВМАТ (Е9.3) 


_ Такой способ представления всех элементов массива можно при- 
менять и в теле функции. Например, первые операторы в теле функции 
могут иметь следующий вид: 


ЕОМСТІОМ $0М (АВВАУ,М,К) 
рІМЕМЅІОМ АВВАҮ(10) 


Каждое обращение к функции с именем $ОМ должно содержать 
фактические параметры, согласующиеся с ее формальными парамет- 
рами. Допустима, например, запись 


АІРНА =2.-+-50М(ВЕТА,ЈА,ЈВ) 


где ВЕТА — идентификатор массива, размер которого не меньше 10. 
Задание. 1. Можно ли в одной выполняемой программе обоз- 
начить одним и тем же идентификатором две разные внешние функ- 
ЦИИ? 
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2. Можно ли обозначить внешнюю функцию одним из идентифи- 
каторов, закрепленных за одной из встроенных функций? основных 
внешних? ‘операторных? . 

3. Выполнение какого оператора определяет момент завершения 
процедуры? 

4. Обозначим буквами о, В, $, 6 внешние функции, а символом —= 
будем указывать обращение внешней функции к другой внешней 
функции. Допустимы ли следующие цепочки обращений? 

а) а 6 у В ӧ 


а. 
5. Внешняя функция Е имеет в качестве своих формальных пара- 
метров Х, У, 2. Что можно сказать об этих параметрах, если в теле 
Этой функции встречаются конструкции У(2-- 1.2), Х(1,2,2,4)? 


Порция 117 
Правила использования внешних функций 


В заключение приведем правила, которых следует придерживаться 
при написании внешних функций. 

о 1, Идентификатор внешней функции должен быть использован 

в первом операторе ее тела (операторе ЕОМСТІОМ№); употребление 
того идентификатора в других невыполняемых операторах тела не- 
допустимо. 

2. Идентификатор внешней функции должен определяться в ее 
теле (например, посредством его использования в левой части опера- 
торов присвоения). Например: 

ЕОМСТІОМ Ү(Х) 
ТЕ(Х—2.5)40,40,30 
40 Ү=.5+Х -- .95*5 П\(Х -- 1.1) 
ВЕТОКМ 
30 Ү=.7+Х --.5301*СО5(Х)) 
ВЕТОВМ 
ЕМО . 

3. Каждая внешняя функция должна иметь по меньшей мере один 
формальный параметр. Оператор вида 

РОМСТТОМ ОМЕ 


в котором отсутствуют формальные параметры, недопустим. 
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4. Никакой из формальных параметров внешней функции не может 
появиться в операторах ЕОЛУАГЕМСЕ, СОММОМ, РАТА. 

5. Внешняя функция может обращаться к другим функциям и под- 
программам, но не может обращаться сама к себе ни непосредственно, 
ни посредством других программных единиц, в частности, две процеду- 
ры не могут обращаться друг к другу. 

6. Тип функции должен определяться первым оператором ее тела 
(явно или неявно). 

7. Если фактический параметр функции является идентификатором 
внешней функции (или подпрограммы), то соответствующий ему фор- 
мальный параметр должен употребляться в теле процедуры так же 
в качестве идентификатора внешней функции или подпрограммы. 

8. Если фактический параметр соответствует формальному, кото- 
рый определяется (или переопределяется) в теле процедуры-функции, 
то он в этом случае вызывается по наименованию и может быть только 
переменной, переменной с индексами или идентификатором массива. 

9. Если формальный параметр внешней функции является иден- 
тификатором массива, то соответствующий ему фактический параметр 
должен быть идентификатором массива или элементом массива. 

10. Если идентификатор внешней функции используется в качест- 
ве формального параметра, то соответствующий ему фактический па- 
раметр должен быть указан в списке оператора ЕХТЕКВМА!, в вы- 
зывающей программной единице. 

11. Допускается в теле функции определение или переопределение, 
а также вывод во внешнюю среду значений некоторых переменных 
или массивов. 

12. В теле процедуры не может быть более одного оператора 
ЕОМСТІОМ (этим оператором является ее первый оператор), более одной 
конечной строки (она является последней в записи процедуры), в нем 
обязательно использование по меньшей мере одного оператора 
КЕТОКМ (такой оператор завершает выполнение процедуры вычи- 
сления внешней функции); в теле процедуры не допускается исполь- 
зование операторов ЅОЈВКООТІМЕ, ВОСК РАТА, $ТОР. 

Задание. 1. С помощью внешней функции предполагается 
произвести сравнение значений двух переменных Х и Ү. В случае 
Х = Ү в основную программу должно быть возвращено значение 3. 
Если Х больше или меньше, чем У, и равняется 2, то`должно быть 
возвращено значение 4. Если же Х не равно ни У, ни 7, то возвращает- 
ся значение 6. Для выполнения указанных операций составьте, описа- 
ние соответствующей процедуры ЕОМСТІОМ. 

2. Напишите описание внешней функции для нахождения наимень- 
шего числа в одномерном массиве, состоящем не более чем из 1000 эле- 
ментов. Дайте функции наименование ЗМАТТ.. ЗМАТТ, должна иметь 
два формальных параметра: наименование массива и целую перемен- 
ную, обозначающую количество элементов в массиве. 


175 


3. Допустимы ли следующие описания внешних функций? Если 
нет, то почему? 


а) ТОСТСАГ, ЕОМСТІОМ Е 
ГОССАТ, Х 
СОММОМ 0,Х,В 
Е=Х.АМ.О.СЕ.В 
КЕТОВМ 
ЕМО 
б) ГОСТСАТ, ЕОМСТІОМ Е(Х,У) 
= РІМЕМЅІОМ Х(Ү) 
Е=Х(1)--Х (@)»Х (У) 
ВЕТОВМ 


е4 


ЕМО 
в) ЕОМСТІОМ Е(Х,Ү) 
`^ БОСТСАЕ Х,Ү 
СОММОМ 0,8 
Е=Х.АМО.У.АМО.О.ТТ.В +2 
ВЕТОВМ 
ЕМ№Р” 


Порция 118 
Пример использования внешней функции 


Для решения систем линейных алгебраических уравнений приме- 
нимы некоторые усовершенствованные методы, если матрица А = 
= {а}, |і == 1, 2, .., п, составленная из коэффициентов а»; 
этих уравнений, является симметричной. В связи с этим представ- 
ляется целесообразным иметь в наборе процедур внешнюю логиче- 
скую функцию, назовем ее идентификатором 51М, имеющую в каче- 
стве формальных параметров идентификатор вещественного квадрат- 
ного массива А и размерность матрицы М. В качестве своего значения 
функция $1М выдает .ТКИЕ., если матрица А симметрична, и .РАТ.ЗЕ. 
в противном случае. 

Описание такой функции может быть представлено в виде: 


ГОСТСАГ, ЕОМСТІОМ $1М(А, М) 
РІМЕМЅІОМ А(М, №) 
№=№—1 
ро 2 1=1,№ 
11=141 
ро 2 Ј=11,№ 
ЇЕ(А(І,Ј)—А(Ј,1))3,2,3 
2 СОМТІМОЕ 
$1М=.ТВОЕ. 
ВЕТОВМ 
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3 $1М=.ЕАТЗЕ. 
ВЕТОВМ 
ЕМС” 


Задание. 1. Является ли обязательным в приведенном приме- 
ре включение второго параметра в список формальных параметров? 

2. Обязательно ли включение в тело описанной функции оператора 
РрІМЕМЅІОМ№? 


3. Замените арифметический оператор [Е логическим оператором ІЕ. 


Порция 119 
Подпрограммы 


Допустимые языком ФОРТРАН подпрограммы всегда оформля- 
ются в виде независимых («внешних») по отношению к главной про- 
грамме и друг к другу программных единиц, которые могут трансли- 
роваться раздельно и даже использоваться другими программами. 

‚ Первым оператором каждой подпрограммы на ФОРТРАНе дол- 
жен быть оператор ЗОВКОЧТИМЕ, общий формат которого имеет 
ВИД: 


ЗОВВООТИКЕ $ (а) 
ЗОВВООТИМЕ $ 


Здесь $ — идентификатор подпрограммы, 
оа — список формальных параметров данной подпрограммы. 

В отличие от функций, где список формальных (а, следовательно, 
и фактических) параметров всегда должен содержать хотя бы один 
параметр, в языке допускаются подпрограммы без параметров. В этом 
случае связь вырабатываемых значений и передача их в вызывающую 
программную единицу может быть осуществлена посредством исполь- 
зования переменных из общих блоков (посредством оператора 
СОММОМ). 

Второй из приведенных форматов оператора ЗОВВОЧТИМЕ и ис- 
пользуется в том случае, если подпрограмма не имеет параметров. 

Что касается сстальных операторов тела подпрограммы, то этими 
операторами могут быть любые операторы, которые допускаются при 
записи внешних функций; в конце записи подпрограммы также долж- 
на быть проставлена конечная строка ЕМО. Как и в записи внешних 
функций, в теле каждой подпрограммы необходим хотя бы один опе- 
ратор РЕТОВМ. 

Пример. Предположим, что в нескольких программах необ- 
ходимо находить номер первого встретившегося элемента одномерно- 
го массива, равного нулю (число элементов в массиве равно 200). 


ИЛИ 
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В этом случае можно написать подпрограмму, параметрами которой 
будут идентификатор массива и индекс искомого элемента в нем: 


ЗОВВООТИМЕ 7ЕВО (АМАС,К) 
РіМЕМЅІОМ АМАС(200) 
Ро 10 11,200 
ТЕ(АМАСЦ(1.))10,2,10 
2К=1 
- ВЕТОВМ 
10 СОМТІМОЕ 


Если нуль в массиве не встретится, то переменной К присваивается 
значение 0, в противном случае — значение индекса элемента, рав- 
ного нулю. 

Обращение к подпрограмме 2ЕКО может иметь вид: 


САН. 2ЕВО(В2,1) 


’Рассмотрим некоторую подпрограмму и вызывающую. ее програм- 
мную единицу (которой может быть главная программа, другая под- 
программа или внешняя функция). 

Для установления связи между этими двумя программными еди- 
ницами идентификатор вызываемой подпрограммы должен быть ука- 
зан в каждой из них. 

В вызываемой подпрограмме идентификатор этой подпрограммы 

может (и должен) быть употреблен единственный раз — в ее первом 
операторе ЗОВКОЦТМЕ. Иное использование данного идентифи- 
катора в этой программной единице (в том числе для обозначения 
каких-либо других объектов) языком запрещено. 
о В вызывающей программной единице использование идентифика- 
тора вызываемой подпрограммы является обязательным, и оно воз- 
можно только в специальных операторах вызова подпрограмм — 
операторах СА, и в операторах ЕХТЕВМАГ (см. порцию 120). 

В этих операторах САІЛ. указываются фактические параметры, 
используемые при выполнении вызываемой подпрограммы. 

В отличие от функций, которые обычно предназначены для опре- 
деления одного значения — значения функции, подпрограммы, как 
правило, предназначаются для определения нескольких значений 
(а также массивов). В связи с этим никакое из определяемых в под- 
программе значений не связывается с идентификатором подпрограммы; 
как было указано, идентификатор подпрограммы используется лишь 
. для связи с вызываемыми единицами, чем и объясняется запрет его 
использования в каких-либо других операторах данной вычислитель- 
ной процедуры. Таким образом, внутри данной подпрограммы ее 
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идентификатор не связывается с типом данного, не может быть специ- 
фицирован, и первая буква не играет никакой роли в выборе иденти- 
фикатора подпрограммы. 

Задание. 1. Использование каких операторов запрещено в 
теле подпрограммы между ее первым оператором и конечной строкой? 

2. Каковы различия в использовании идентификаторов подпро- 
грамм и функций, в частности, внешних? 

3. Какова роль первых символов идентификаторов подпрограмм? 


Порция 120 
Идентификатор подпрограммы 


Как это следует из предыдущего, идентификатор подпрограммы 
должен быть употреблен: 

Во-первых, в первом операторе ЅОЈВВООТІМЕ тела подпрограммы, 
названной этим идентификатором. Других употреблений данного 
идентификатора в теле этой подпрограммы не допускается. 

Во-вторых, в других программных единицах, обращающихся к 
данной подпрограмме, в операторах СА... 

Если подпрограмма построена с учетом взаимодействия формаль- 
ных и фактических параметров, то за идентификатором подпрограммы 
в операторе ЗОВКОЧТИМЕ следуют скобки с ее формальными пара- 
метрами, а в операторе САТТ. — с фактическими. 

Цомимо этих двух употреблений идентификатора подпрограммы 
(а также внешней функции) допустимо еще одно — в операторах 
ЕХТЕКМАТ.. Указание идентификатора подпрограммы и внешней функ- 
ции в ЕХТЕВМАТ, необходимо, если к этим процедурам имеется обра- 
щение через другие программные единицы (внешние функции или под- 
программы). В таких случаях идентификатор процедуры указывается 
в числе фактических параметров в вызывающей программной единице. 
При наличии обращения к некоторой процедуре, которой может быть 
как подпрограмма, так и внешняя функция, в вызывающей програм- 
мной единице все идентификаторы процедур, содержащих косвенное 
обращение, т. е. все идентификаторы процедур, встречающиеся в числе 
фактических параметров в обращениях к другим процедурам (в ука- 
зателях функций или операторах САТ.Г.) и только эти идентификаторы 
должны быть перечислены в данной программной единице в списках 
операторов ЕХТЕК МАГ. 

Заметим еще раз, что в одной и той же программной единице допу- 
стимо обращение к некоторой другой процедуре как непосредствен- 
ное, так и посредством других программных единиц, но не к самой 
себе. 

В том случае, когда в данной программной единице имеет место 
обращение к некоторой процедуре как непосредственное, так и кос- 
венное, посредством других программных единиц, представляется 
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возможным определить тип идентификатора этой процедуры по форме 
непосредственного использования: является ли он идентификатором 
внешней функции (если этот идентификатор используется в указателе) 
или подпрограммы (если он используется в операторе САТГ.. Тем не 
менее и в этих случаях, как было отмечено ранее, указание идентифи- 
катора в операторе ЕХТЕКМА!. является обязательным. 

Если в программной единице имеет место лишь косвенное обра- 
щение к некоторой внешней процедуре, т. е. идентификатор процеду- 
ры в выполняемых операторах встречается только в качестве факти- 
ческого параметра, то в таком случае информации, содержащейся 
в данной программной единице, недостаточно для определения типа 
этого идентификатора внешней процедуры. Принадлежность его к 
идентификаторам внешних функций или подпрограмм может быть 
‘определена лишь при рассмотрении других программных единиц 
(обращающихся непосредственно к данной процедуре) или ее тела. 
В этом случае принято говорить, что идентификатор в данной програм- 
мной единице относится к идентификаторам «внешних процедур, ко- 
торые не могут в данной программной единице быть классифицированы 
как внешние функции или как подпрограммы». 

Этим определением нам понадобится воспользоваться в дальней- 
шем. 

Рассмотрим вопрос о том, могут ли идентификаторы подпрограмм 
быть использованы для обозначения каких-либо других объектов в 
программе и в каком случае? 

Такое использование не допускается языком в вызывающих дан- 
ную процедуру программных единицах, а также в теле самой этой 
подпрограммы (исключение составляет допускаемое их использова- 
ние в качестве наименований блоков). Что касается всех других про- 
граммных единиц, то в них допускается использование идентифика- 
торов подпрограмм для обозначения каких-либо других объектов: 
простых переменных, массивов, операторных функций, формальных 
параметров, названий блоков, но не внешних функций и подпрограмм, 
так как выполняемая программа не должна содержать двух внеш- 
них функций или подпрограмм, имеющих одинаковые идентифи- 
каторы. 

Задание. 1. В каких программных единицах используются 
идентификаторы процедур (внешних функций и подпрограмм), в ка- 
ких операторах? 

2. Наличие какого оператора в программной единице обязательно 
в связи с косвенным обращением в ней к некоторым программным 
единицам? 

3. Идентификаторы каких объектов должны быть включены в 
список идентификаторов оператора ЕХТЕКМАІ? 

4. О чем говорит наличие оператора ЕХТЕВМА!. в программной 
единице? 
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Порция 121 
Идентификатор подпрограммы (продолжение) 


Задание. 1. Массив, которому присвоен идентификатор ЕІ, 
является одномерным и содержит сто элементов. Напишите подпро- 
грамму нахождения среднего арифметического всех значений элемен- 
тов массива. Полученному значению должен быть присвоен иденти- 
фикатор А2. 

2. Напишите подпрограмму типа ЅОВВООТІМЕ для инверсии 
одномерного массива; иначе говоря, требуется поместить первый эле- 
мент исходного массива на последнее место результирующего массива, 
второй элемент исходного массива — на предпоследнее место резуль- 
тирующего массива и т. д. Массивы могут содержать не более 150 эле- 
ментов. 

Дайте подпрограмме наименование ТК. $ТВ должна иметь три 
формальных параметра: Х — идентификатор исходного массива, У — 
идентификатор результирующего массива и К — идентификатор це- 
лой переменной, определяющей длину массивов. 


Порция 122 
Вызов подпрограмм, оператор САШ. 


Мы уже говорили, что вызов подпрограмм осуществляется по- 
средством специального оператора САТІ., который имеет формат: 


САЦ, $() 
или Ато 


где 5 — идентификатор подпрограммы, с — список фактических па- 
раметров. Напоминаем, что список фактических параметров, заклю- 
ченных в скобки и разделенных между собой запятыми, в операторе 
САТА. должен быть согласован в числе элементов, в порядке их следо- 
вания и типе со списком формальных параметров, указанным в соот- 
ветствующем операторе ЗОВКООТИМЕ (с тем же идентификатором 
после служебного слова ЗОВВОПТИ\Е). 

Что касается согласования параметров по их типу, то из общего 
правила имеется исключение. Оно касается использования текстовых 
констант в качестве фактических параметров, которое допускается 
языком. Е 

Фактическими параметрами в операторах обращения к подпро- 
граммам (операторах СА) могут быть: 

1) идентификаторы переменных или переменных с индексами; 

2) идентификаторы массивов; 

З) выражения (допустимые в языке); 

4) идентификаторы внешних процедур; 

5) текстовые константы. 
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Если фактический параметр является идентификатором внешней 
функции или подпрограммы, то соответствующий ему формальный 
параметр должен быть использован в теле подпрограммы как иден- 
тификатор внешней функции или подпрограммы соответственно. 

После вызова подпрограммы посредством оператора САТТ. управ- 
ление передается первому выполняемому оператору подпрограммы. 

При этом формальные параметры в вызываемой подпрограмме при- 
мут значения фактических параметров или будут заменены фактиче- 
скими параметрами, указанными в операторе САГТ, в соответствии 
с правилами, изложенными в порции 103. 

Далее подпрограмма будет выполняться, как любая программная 
единица вплоть до выполнения оператора ВЕТОКМ, посредством ко- 
торого управление вновь будет передано в вызывающую программу 
выполняемому оператору, следующему непосредственно за опера- 
тором САТГ. 

Задание. 1. Одномерный массив А содержит не более 50 эле- 
ментов. Напишите подпрограмму ЗОВКОПТТ\Е, с помощью которой 
можно было бы подсчитать среднее арифметическое первых М элемен- 
тов массива А (М < 50), а также количество К тех элементов, которые 
оказались равными нулю среди первых № элементов. Назовите эту 
подпрограмму СРЕРН. Используйте в качестве формальных пара- 
метров идентификаторы А и К для идентификатора исходного массива 
и числа его элементов, равных нулю. | 

2. Затем составьте фрагмент программы, вызывающий эту подпро- 
грамму и использующий ее для нахождения квадрата среднего ариф- . 
метического из первых 40 элементов массива В, причем значению квад- 
рата среднего арифметического присвойте идентификатор УСР, а ко- 
личеству нулевых элементов — КМ. 


Порция 123 
Результаты выполнения подпрограммы 


Как было описано в порции 113, результат выполнения внешней 
функции присваивается ее идентификатору и посредством указателя 
функции передается в вызывающий оператор (в точку вызова этой 
функции). Е 

В отличие от функций с идентг“икатором подпрограммы не связы- 
вается никакое значение. р 

Каким же образом передаются результаты выполнения подпро- 
грамм в точку их вызова? 

Вырабатываемые подпрограммами значения могут быть использо- 
ваны двумя способами: | 

1. Они могут быть переданы в другие программные единицы фак- 
тическими параметрами посредством формальных, вызываемых по 
наименованию. І 


182 


68 ‘оиа 
хоир пптдо сабаһ маннемавви птнаһоыс шобреор п охидоо 


т 


/м9/ удио лттдо /19/ хоид пптоо 
А Е 


ое тптоо сабаһ 
тпнароне шо09є09 7 ОМИІ920/] 


Ма 
№111 34 


(№3 
МУП 135 


ИЕ 
МУП 34 


к е е. ® м > а" © © 


ше 0 е в ша ео 


(0.0:9*(1*1) и) бу 1100 


ЗМ‘ А‘М/УЯ/ №09 
сү 3№11105915 


Хэ‘ Хе ‘Ху/ 19 /МоКио 2 
(2:90) су 3м14005915 


ә 19 омо Ве о м еб е е е 


(99: Ұ) гу 3411005905 


Р === ЛИЛУЈӘЉЛШУЮЮ е Я 5 Ы оо о в 
ўобшәнріри манеломдоф рнәнос ОЛУТ а 


15 ‘Уля /МОИмО9 
УТ“ УЛ‘ уХ/Л9/нОИИО2 


РИАО0200Ш ВОНДШИ] 


иабшзиодри єз09һ ппнаьоне шой0е09 == 


=== пипХдаһпшур 9о0шантади хіюнчиоидо® рнаиор 


9. Эти значения могут быть переданы в другие программные еди- 
ницы посредством идентификаторов простых переменных или массивов, 
определенных в данной программной единице в операторе СОММОМ. 

Очевидно, что в случае подпрограмм без параметров единственной 
возможностью передачи результатов из вызываемой подпрограммы 
в вызывающую является использование операторов СОММОМ (т. е. 
использование идентификаторов, именующих элементы из общих бло- 
ков данных). 

На рис. 32 схематически изображены способы передачи результа- 
тов выполнения вызываемой подпрограммы в точку ее вызова. На ри- 
сунке показан обмен значениями между главной программой и тремя 
подпрограммами (А1, А2, АЗ). Причем значения, выработанные в 
подпрограмме А1, могут быть возвращены в главную программу толь- 
ко через фактические параметры посредством формальных, вызывае- 
мых по наименованию. Значения из подпрограммы А2 могут быть пе- 
реданы как через параметры, так и через идентификаторы переменных 
определенных в общем блоке (ВІ). Поскольку подпрограмма АЗ не 
имеет параметров, то результаты ее работы можно передать в вы- 
зывающую программу только через переменные из общего блока 
(ВК). 

В дополнение к сказанному о способах передачи результатов вы- 
полнения подпрограмм в вызывающую программу следует заметить, 
что вырабатываемые подпрограммами значения могут быть выданы 
во внешнюю среду посредством выполняемых в них соответствующих 
операторов вывода, для чего могут быть использованы любые пере- 
менные или массивы, значения которых определены внутри этих под- 
программ. 

Существенно отметить, что все сказанное относительно возмож- 
ности передачи результатов из подпрограмм посредством аппарата 
формальных-фактических параметров и элементов общих блоков, 
а также посредством использования внешней среды (через оператор 
вывода) в одинаковой мере касается и данных, являющихся исходны- 
ми для выполнения этих процедур. 

В порции 125 мы ответим на вопрос о том, является ли аппарат 
формальных-фактических параметров и операторов СОММОМ взаи- 
мозаменяемым, а также на вопрос о том, в чем заключаются особенно- 
сти каждого из них. 

Задание. 1. Какими средствами могут быть переданы исход- 
ные данные в подпрограмму? 

2. Каким образом могут быть использованы результаты выполне- 
ния подпрограмм? 

3. Может ли подпрограмма без параметров выдавать в разные 
моменты обращения к ней различные результаты? 

4. Как могут быть использованы результаты выполнения процедур 
без параметров? 
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Порция 124 


Некоторые ограничения на формальные параметры 
внешних функций и подпрограмм 


Как это было показано в порциях 103, 109, 112, существует три 
способа установления связей между идентификаторами, используе- 
‚ мыми в программе: 

1. Связь фактических с формальными параметрами. 

2 2. Связь идентификаторов посредством операторов Е ТЛУАГЕМ- 
3. Связь идентификаторов посредством использования общих бло- 
ков памяти (устанавливаемая с помощью оператора СОММОМ). 

Наличие последних двух видов связи является причиной установ- 
ления некоторых дополнительных ограничений на формальные пара- 
метры процедур. Кроме того, эти ограничения касаются также воз- 
можностей использования формальных параметров в операторах 
РАТА. А именно: формальные параметры данной процедуры не могут 
быть включены в ней в списки операторов ЕОГЛУАТЕМСЕ, СОММОМ 
и "РАТА. 

Для разъяснения этого ограничения вспомним, что среди фор- 
мальных параметров следует выделять параметры, вызываемые зна- 
чением и вызываемые по наименованию (последними параметрами яв- 
ляются те из них, которые встречаются в процедуре в левых частях 
операторов присвоения). 

Если формальный параметр вызывается значением, то, как это 
ясно из предыдущего, начальное значение этого идентификатора оп- 
ределяется текущим значением соответствующего фактического па- 
раметра. Таким образом, определение значения формального пара- 
метра посредством трех указанных операторов противоречило бы са- 
мой идее использования аппарата формальных-фактических пара- 
метров. 

Если формальный параметр является параметром, вызываемым 
по наименованию, то, как было указано ранее, для значений этих пара- 
метров никакие поля памяти не отводятся (при определении значений 
этих параметров используются поля памяти, отводимые соответствую- 
щим фактическим параметрам), в связи с чем, очевидно, нет смысла 
говорить об эквивалентности их значений, как значений их полей, 
определяемых операторами ЕӦОІМАТЕМСЕ или СОММОМ, также 
как нет смысла говорить о начальных значениях этих идентификаторов, 
так как в качестве их начальных значений (если в них появляется 
необходимость) должны быть взяты значения из полей памяти, отве- 
денных соответствующим фактическим параметрам. 

Задание. Какие ограничения накладываются на использо- 
вание формальных параметров? 
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Порция 125 
Формальные параметры и элементы общих блоков 


Сопоставим возможности, ‘предоставляемые аппаратом формаль- 
ных-фактических параметров и использованием переменных из об- 
щего блока. 

С этой целью обратимся к следующему примеру. 

Допустим, что в некоторой программной единице, назовем ее А, 
имеется два обращения к подпрограмме, назовем ее В. При этом в ка- 
честве результатов подпрограмма В вырабатывает значения некоторо- 
го массива. Здесь возможны две различные ситуации: результаты, 
вырабатываемые при каждом из обращений, используются последова- 
тельно, т. е. выработанные при первом обращении результаты исполь- 
зуются некоторым образом и к моменту второго обращения к подпро- 
грамме они уже не нужны. Другими словами, результаты, получаемые 
‘из подпрограммы — массивы данных, могут быть размещены в одни 
и те же поля памяти, чем достигается определенная экономия памяти. 

В этом случае передача получаемых результатов из подпрограммы 
может быть реализована посредством использования элементов общего 
блока памяти, т. е. заданием в вызывающей и вызываемой процедурах 
операторов СОММОМ, в каждом из которых среди элементов списков 
на одних и тех же позициях указываются идентификаторы, именую- 
щие общее поле памяти, отводимой для вырабатываемого процедурой 
массива данных. Тот же эффект будет достигнут и при включении в 
список формальных параметров параметра, идентифицирующего вы- 
рабатываемый массив: при этом для размещения этого массива-резуль- 
тата в одно и то же поле памяти потребуется в качестве соответствую- 
шего фактического параметра указать один и тот же идентификатор, 
предназначенный для его идентификации. 

Однако возможна и другая ситуация, при которой выработанный 
в результате первого обращения к подпрограмме массив используется 
впоследствии и должен быть сохранен после второго обращения к 
той же подпрограмме. Например, после второго обращения получен- 
ные два массива, используемые для хранения матриц, должны быть 
перемножены. 

Здесь без дополнительной памяти в принципе обойтись нельзя; 
для каждой из матриц должно быть выделено свое поле памяти. 

Если использовать аппарат, предоставляемый операторами 
СОММОМ, то в вызывающей программной единице в промежутке между 
первым и вторым обращением к подпрограмме потребуется осуществить 
пересылку рассматриваемого массива в некоторое другое поле (для че- 
го необходимо ввести соответствующий идентификатор в любом случае). 

Если же воспользоваться аппаратом формальных -фактических па- 
раметров, то в такой пересылке массива никакой необходимости не 
возникнет, достаточно будет в каждом из обращений к подпрограмме 
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указать в качестве соответствующих фактических параметров разные 
идентификаторы. Отсюда следует, что аппарат формальных-фактиче- 
ских параметров является более гибким. 

Однако реализация аппарата формальных-фактических параметров, 
вообще говоря, является более сложной. В связи с этим, если при об- 
ращении к некоторой подпрограмме во всех операторах обращения 
к ней в качестве фактического параметра используется один и тот же 
идентификатор, следует исключить соответствующий параметр из чис- 
ла формальных параметров и использовать возможности оператора 
СОММОМ. Обратитесь еще раз к рис. 39, иллюстрирующему различ- 
ные способы пересылки значений — результатов работы вызываемой 
процедуры. 

Задание. В каком случае использование аппарата формаль- 
ных-фактических параметров является необходимым? Когда вместо 
него можно воспользоваться общим блоком данных (операторами 
СОММОМ)? 


Порция 126 
Примеры использования подпрограмм 


Пример 1. 

Рассмотрим в деталях подпрограмму РВОС, считывающую с пер- 
фокарт (номер устройства ввода — 2) массив ЕВ, содержащий тексто- 
вую информацию, и помещающую его в общий блок А. Затем этот мас- 
сив печатается в виде 50 строк так, что в первую строку помещаются 
его первые 15 элементов, во вторую — следующие 15 элементов и т. д. 
В начале каждой строки сохраняется по девять пробелов. 

Вывод массива указанным образом осуществляется некоторой под- 
программой Р без параметров, вызываемой подпрограммой РВОС. 


Подпрограмма Комментарии 
ЅОВВООЧТІМЕ РРОС В общий блок помещается массив, со- 


держащий 750 элементов. 
СОММОМ/А/ЕК(750) 
КЕАО(2,100)ЕВ 
100 РОКМАТ(14А5) Коэффициент повторения 14 указывает 
на то, что с каждой очередной перфо- 
карты считывается по 14 значений эле- 
ментов массива до его исчерпания 
СА Р Вызов подпрограммы Р, не имеющей 


Ы формальных параметров 


ЕМ” 
7187 


Подпрограмма Р может быть представлена в виде: 


Подпрограмма 
ЗОВКОЧТИМЕ Р 
СОММОМ/А/ЕК 


РІМЕМЅІОМ ЕВОЧТ (15,50) 
ЕОЧИУАГЕМСЕ (ЕВ(1),ЕВООТЦ(1)) 


РО 10 11,50 
10 МВІТЕ(І,200)(ЕКООТЈ,1),7= 1,15) 


200 ЕОКМАТ (10Х, 15А5) 


КЕТОКМ 
ЕМО 


Комментарии 

Содержащийся в общем бло- 
ке А массив именуется тем 
же идентификатором ЕК 
(что делать не обязательно) 
Определяется двумерный 
массив ЕКООТ 
Устанавливается эквива- 
лентность двумерного мас- 
сива ЕКООТ и массива ЕК 
(из общего блока), что оз- 
начает, что идентификато- 
ры ЕВООТ и ЕК именуют 
один и тот же массив дан- 
ных. 
Вывод текста осуществляет- 
ся посредством оператора 
цикла. В операторе МЕТЕ, 
содержащемся в области 
оператора РО, использует- 
ся список типа цикл. 
Формат 10Х в операторе 
означает пропуск девяти 
пробелов в начале каждой 
строки вывода (сохранение 
полей на странице печати). 
Коэффициент повторения 
15 задает вывод на каж- 
дую строку 75-ти символов 
(среди которых в выводи- 
мом тексте возможны про- 
белы) 


В операторе РІМЕМ№ЅІОМ№ определен двумерный массив ЕКОЧТ, 
содержащий 50 подмассивов по 15 элементов: І меняется от 1 до 50; 
Ј меняется от 1 до 15. Оператор ЕСТЛУАГЕМСЕ устанавливает сле- 
дующее ссответствие между элементами массивов ЕК и ЕКООТ: 


ЕВ(1)>ЕВООТ (1,1) 
ЕВ (16)>ЕВООТ (1,2) 


`ЕВ(236)«>ЕВООТ (1,15) 


ЕВ(750)>ЕВОПТ(50,15) 
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Порция 127 
Оператор ЕХТЕВМАЕ, 


Оператор ЕХТЕВМАТ, объявляет в данной программной единице 
те идентификаторы внешних процедур (процедур-функций и процедур- 
подпрограмм), которые в ней используются в качестве фактических 
параметров. Этот оператор необходим для того, чтобы отличить иден- 
тификатор процедуры от других идентификаторов в списке фактиче- 
ских параметров и обеспечить вызов соответствующей процедуры кос- 
венно, посредством другой процедуры или ряда процедур. 

Формат оператора ЕХТЕВ МАГ, следующий: 


ЕХТЕВМАІ, о 


Здесь о — список идентификаторов внешних процедур. 

Появление идентификатора в операторе ЕХТЕВМАТ, объявляет, 
что данный идентификатор является идентификатором внешней про- 
цедуры. Все идентификаторы внешних процедур, используемые 
в качестве фактических параметров других процедур, должны 
быть приведены в операторе ЕХТЕВМАГ. Таким образом, оператор 
ЕХТЕКМАЕ используется для того, чтобы объявить в данной програм- 
мной единице идентификаторы подпрограмм, которые передаются в 
другие программные единицы в качестве фактических параметров. На- 
пример, появление в некоторой программной единице оператора 


ЕХТЕКМАІ, (,А12,К10 


говорит о том, что идентификаторы б, А12, К1О являются идентифи- 
каторами внешних процедур и что они могут быть использованы в ка- 
честве фактических параметров при обращении к другим программным 
единицам выполняемой программы. 

Отметим, что язык не допускает использования встроенных функ- 
ций посредством обращения к ним через формальные параметры. Дру- 
гими словами, если в списке оператора ЕХТЕКМАЕ приведен иден- 
тификатор встроенной функции, то этот идентификатор тем самым 
объявляется идентификатором внешней процедуры, а не встроенной 
функции. Это значит, что при обращении к этой функции (т. е. при ис- 
пользовании ее идентификатора в качестве фактического параметра) 
тело встроенной функции с этим идентификатором не встраивается в ра- 
бочую программу, а осуществляется обращение к внешней процедуре 
с данным идентификатором, которая должна быть в этом случае со- 
ставлена программистом. ба 

Давайте разберем примеры, иллюстрирующие ситуации, когда 
использование оператора ЕХТЕКМАГ оказывается необходимым. 

Предположим, что некоторая выполняемая программа состоит 
из нескольких программных единиц, среди которых нам понадобится 
рассмотреть главную программу и процедуры. 
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Главная программа 


о зе о о ее 


а м а стаи ПО О 
о с АО О ол дк) 
А ва о Ос. И По Нл 


се. СИЕ ас оО С ОЕ 


О ба ОО с ООО Оо 


Процедуры 


 ЗОВКОЧТМЕ ВЕЗ(Х,У,2) 


вам о И мас о 


Ѕ0ВКООТІМЕ ХКА,В,С,О,Е) 
В=А(С,О,Е)*7.3/2.=5 


ВЕТОКМ 


ЕМ” 
ЕОМСТІОМ АВЅ(А,В,С) 


Бо мо еее все 


ВЕТОВМ 
ЕМО 
ЕОМСТЮМ В(А1,ВІ,СІ) 


ВЕТОКМ 
ЕМО 


Здесь предполагается, что посредством формального параметра и 
в подпрограмму ВЕ$З и параметра А в подпрограмму ХІ будут переда- 
ваться фактические параметры, являющиеся идентификаторами неко- 
торых внешних функций. Заметим, что все те внешние функции, обра- 
шение к которым осуществляется одним и тём же указателем в теле 
каждой из подпрограмм, должны иметь в своих списках одинаковое 
число формальных параметров, согласуемых по типам и порядку их 
следования, что следует из правила согласования списков фактиче- 
ских и формальных параметров. Обратите внимание на идентификатор 
АВ$; он является идентификатором встроенной функции, но, как от- 
мечалось выше, здесь он будет выполнять функцию идентификатора 
внешней функции, которая должна быть составлена программистом; 
первый оператор этой функции может иметь вид: 


ҒОМСТІОМ АВЗ(А,В,С) 


При выполнении оператора присвоения 2 = У(Х)--1.0 в под- 
программе ВЕЅ в результате ее вызова первым из указанных в глав- 
ной программе операторов СА. будет выполнен оператор 
р=51№(А)--1.0; и второго — оператор С=С05(2.7*5)--1.0. При вы- 
полнении оператора В=А(С,р,Е)+7.3/2.*5 в подпрограмме ХІ при 
первом обращении к ней выполнится оператор Ү=АВӘ(АВ;С)+7.3/2.5, 
при втором — У2=В(А1,В1,С1)+7.3/2.*5. 

Рассмотрим еще один пример: 
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Вызывающая программная Внешние процедуры 
единица 
ее И ЗОВКОЧТИМЕ ВЕЅІ(А,В,С) 


оа оен е ее се 
соо ИЕСИЕБА с. 


САЦ. ВЕЅІ(Х,ВО(Ү),7) — ВЕТОВМ 
ЕЮ 


ЕХ’ 7 БОМСТІОМ ВО(Х) 


ОШ О о ооо а Зо 


ПС БАО БИ сс 


аа е е о ае 


КЕТОВМ 
ЕМО 

В этом примере оператор ЕХТЕКМА!. в вызывающей программной 
единице не нужен, так как фактическим параметром в операторе САІІ. 
является не идентификатор внешней процедуры, а указатель функции, 
т. е. при обращении к подпрограмме КЕ$1 в качестве второго факти- 
ческого параметра будет передан результат выполнения внешней 
функции КО с фактическим параметром У. 

Задание. 1. В каком случае в программной единице необхо- 
дим оператор ЕХТЕВ МАГ? 

2. Может ли в программной единице в списке оператора 
ЕХТЕВМАТ. быть указанным ее идентификатор?. 

3. О чем свидетельствует наличие идентификатора встроенной 
функции в списке оператора ЕХТЕК МАГ. в некоторой программной 
единице? Что в этом случае означает наличие указателя этой встроен- 
ной функции в правой части оператора присвоения в данной про- 
граммной единице? 


Порция 128 
Оператор ЕХТЕКМАЕ (продолжение) 
Косвенное обращение 

Проиллюстрируем использование оператора ЕХТЕВМ№АІ, необ- 
ходимость в использовании которого возникает при косвенном обра- 
щении к процедурам, на следующих примерах: 

Пример 1. 

Пусть в некоторой программной единице требуется вычислить зна- 
чение следующего выражения: 


п п: 


В= У п Хо УВ Ирин 


і=п, 1= 13 і=п5 і=п; 


2 2 0) 9) 
+ Уж + 05 + у + Ло 
Здесь пределы суммирования в общем случае различны и заданы пере- 
менными целого типа. 
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Обратив внимание на то, что первые четыре слагаемых, являющие- 
ся суммами, могут быть вычислены посредством надлежаще заданного 
циклического процесса, мы вместе с тем замечаем, что их общие члены 
различны. 

Для вычисления общих членов заданных сумм определим внешние 
процедуры-функции, которые обозначим соответственно идентифика- 
торами Р1, Р2, РЗ, Р4. Поскольку во всех указанных суммах общие 
члены являются функциями одного параметра, целой переменной І, 
определим их как процедуры-функции с одним параметром целого 
типа (сохранив за ним идентификатор 1). 

Кроме этого, определим внешнюю процедуру-функцию Т, предназ- 
наченную для суммирования некоторых членов, задаваемых в этой 
процедуре с помощью указателя, идентификатор которого является 
ее формальным параметром Е. Поскольку нам понадобится использо- 
вать данную процедуру Т для вычисления сумм с разными пределами 
суммирования, определим ее как процедуру с тремя параметрами: 
два из них являются нижним и верхним пределами суммирования 
(переменные целого типа М и М) и один — идентификатор процедуры 
Е (внешней функции). При обращении к процедуре Т в качестве фак- 
тических параметров для параметра Е будут использованы идентифи- 
каторы РІ, Р2, РЗ или Р4 для вычисления первой, второй, третьей 
или четвертой сумм соответственно. 

Заметив также, что последние два слагаемые имеют тот же вид, 
что и общий член четвертой суммы, мы выясняем, что для их вычисле- 
ния мы сможем обратиться к процедуре Р4. 

Прежде чем привести описания фрагмента программной единицы, 
в которой производится вычисление заданного выражения, и перечи- 
сленных процедур, обратим Ваше внимание еще на одно обстоятель- 
ство. Поскольку в четвертой сумме используются элементы массивов 
Х и Ү, а функцию Р4 мы определили как функцию от одного парамет- 
ра, возникает необходимость в использовании общего блока для вы- · 
зывающей процедуры (ниже мы приводим только фрагмент этой про- 
цедуры) и процедуры Р4, в которой используются элементы этих мас- 
сивов. Передача информации о массивах в данном случае посредством 
аппарата фактических-формальных параметров не представляется воз- 
можной, поскольку помимо процедуры Р4 из вызывающей процедуры 
мы обращаемся и к процедурам РІ, Р2, РЗ, у которых используется 
только по одному формальному параметру. Заметим при этом, что пра- 
вилами языка ФОРТРАН допускается косвенное обращение посред- 
ством одного и того же формального параметра (в нашем случае он 
обозначен через Е) только к тем процедурам, которые идентичны 
по типу (в нашем случае они все — внешние функции вещест- 
венного типа), имеют равное число формальных параметров (у нас — 
по одному) соответственно одного и того же типа (у нас — целого 
типа). 
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Обращаем также внимание на обязательность использования в вы- 
зывающей программной единице оператора ЕХТЕВ МА! и перечисле- 
ние в нем идентификаторов РІ, Р2, РЗ, Р4 (но не идентификатора про- 
цедуры Т, к которой вызывающая программная единица обращается 
непосредственно). 

Фрагмент программы: 

ЕХТЕКМАГ, Р1,Р2,Р3,Р4 

СОММОМ Х 1(100),У1(100) 


о О 


К =Т(М1,№2,Р1) + Т(№з,№4,Р2) -Т(№5,№,Р3З)-- Т(М7,№8,Р4)-- 
1 Р4(50)--Р4(100) 


ЕОМСТЮМ Т(М,М,Е) 
0 
ро=м№,м 

1 Т=Т--Е() 
ВЕТОВМ 
ЕМО 
ЕОМСТІОМ РЕКИ) 
РА 1 
ВЕТОВМ 
ЕМО 
ЕОМСТІОМ РӘ(1) 
д} 


Р2=(05(2.0*А) 

КЕТОКМ 

ЕМО 

ЕОМСТІОМ РЗ(1) 

РЗ = 1»+3 

ВЕТОВМ 

ЕМО 

ЕОМСТТОМ Р4(1) 

СОММОМ Х (100), Ү(100) 

Р4=5О0ВТ (Х(1):24-Ү(1):2) 

ВЕТОКМ . 

ЕМО 

Пример 2. 

Для сравнения методики использования внешних функций и под- 
программ приведем фрагмент программы, решающей ту же задачу, 
что и в первом примере, однако использующую вместо внешней функ- 
ции Т подпрограмму, которую мы обозначим идентификатором РТ. 
В отличие от использованной в предыдущем примере внешней функ- 
ции Т, помимо тех же формальных параметров М, М, Е, нам понадобится 
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включить еще один формальный параметр $, предназначаемый в 
качестве носителя результата выполнения этой подпрограммы РТ, 
т. е. результата выполненного в ней суммирования. 

Фрагмент вызывающей программной единицы: 


ох Е чз фе хх е 


ЕХТЕВМАІ Р1,Р2,РЗ,Р4 
СОММОМ Х 1(100),У1(100) 

СА, РТ(М1,№,Р1,$1) 

САП, РТ(М№З,М4,Р9,59) 

СА, РТ(№5,М6,Р3,53) 

САЦ. РТ(М7,№8,Р4,54) 
в=$1--$2--53-^54--Р4(50)--Р4(100) 


а Ко реа Кееде Пе © 


Подпрограмма РТ: 


ЅОВКООТІМЕ РТ(М,М,Е,5$) 

5=0.0 

РО 1 1=М,М 
1 $=$5-Е() 

КЕТОКМ 

ЕМО 

Описаний внешних функций РІ, Р2, РЗ, Р4, используемых в дан- 
ном фрагменте, которые при этом не претерпевают никаких изменений, 
мы не приводим. | 

Задание. 1. В каком случае можно упростить программу, 
воспользовавшись вместо внешней функции операторной функцией? 

2. Учитывая ответ на предыдущий вопрос, по возможности мак- 
симально упростите приведенный в примере 1 в этой порции фрагмент 
программы, полагая, что №1 = №3 = № = №7; № = № = № = №8. 

3. Замените в первом из приведенных в этой порции примеров 
внешние функции РІ, Р2, РЗ, Р4 подпрограммами. 

4. Допустимы ли следующие последовательности операторов в 
` одной и той же программной единице? 


а е 2) ЕХТЕБКМАІ. Т 
СОММОМ А(50),В(50) А=Т(М,№) 
ОИТ ЕГЕ Е отс, 
ТІ(К)=А(К)--В(К)»»2 САМ. Е(А,Т,Т(М9,М5)) 

Р=ТіІ(1)-+Т7(9) 3) ЕХТЕВМА!. Т 
САМ. Е(1.1.Т) Т(А)=АзВ-ЕС 


я а м пе О ее ое 
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4) ЕОМСТІОМ Е(А,М) 
СОММОМ А(100),М,С 


5. Можно ли в примере 2 во всех операторах СА!Л, в качестве чет- 
вертого параметра указать один и тот же идентификатор? 


Порция 129 


Массивы с регулируемыми размерами 


Как было указано в порции 85 (при рассмотрении описателей `мас- 
сивов), для указания размеров массивов могут быть использованы, по- 
мимо положительных целых констант, идентификаторы переменных 
целого типа. Однако размеры массивов с помощью идентификаторов 
не могут указываться в главной программе; их разрешено употреблять 
только в подпрограммах и внешних функциях. ыы: 

Массив, в описателе которого размер задан идентификатором, `на- 
зывается массивом с регулируемыми размерами. 

Если в некоторой процедуре используются массивы с регулируе- 
мыми размерами, то в список формальных параметров этой процедуры 
должны быть включены: 

1. Все идентификаторы массивов с регулируемыми размерами. 

.2. Все идентификаторы переменных целого типа, задающие раз- 
меры регулируемых массивов. 

В том числе, когда среди регулируемых массивов имеются такие 
массивы, граничные значения индексов которых совпадают, эти 
значения могут быть обозначены одним и тем же идентификато- 
ром (что позволит уменьшить число формальных параметров проце- 
дуры). 

Обратим внимание на ограничение, накладываемое языком на ис- 
пользование формальных параметров, задающих регулируемые раз- 
меры используемых в процедурах массивов: ' 

1. Значения фактических параметров, задающих регулируемые 
размеры массивов, должны быть определены до обращения к про- 
цедуре. 

2. Эти значения не могут переопределяться в процедуре. 

3. Эти значения не могут становиться неопределенными. 

Таким образом, например, формальный параметр в процедуре не 
может быть использован в качестве параметра оператора цикла, а так- 
же не может быть использован в операторе СО ТО по предписанию 
и, соответственно, в операторе А5$1СМ (поскольку при этом соответ- 
ствующая целая переменная становится неопределенной). 
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Кроме того, как было указано в порции 103, формальному пара- 
метру, являющемуся идентификатором массива, должен соответст- 
вовать фактический параметр, являющийся либо идентификатором 
массива, либо переменной с индексами. В любом случае размеры регу- 
лируемого массива не могут превосходить размеры массива, опреде- 
ляемого соответствующим фактическим параметром. 

Таким образом, каждому массиву с регулируемыми размерами ста- 
вится в соответствие массив (или переменная с индексами) из вызы- 
вающей процедуры. Последний, в свою очередь, если вызывающая 
процедура сама была вызвана другой процедурой или главной про- 
граммой, может оказаться массивом с регулируемыми размерами. 
Однако в любом случае для каждого массива с регулируемыми раз- 
мерами должно существовать по меньшей мере одно описание с по- 
стоянными размерами. Заметим также, что ограничение, касающееся 
того, что формальные параметры не могут быть использованы в опера- 
торах СОММОМ, в равной мере относится и к идентификаторам регу- 
лируемых массивов: такие идентификаторы не могут появляться в 
списках оператора СОММОМ. Это ограничение вызвано тем, что па- 
мять под общие блоки памяти отводится при трансляции и не может 
перераспределяться. 

Задание. 1. Какими средствами могут описываться размеры 
массивов и в каких случаях? 

9. Какие массивы называются массивами с регулируемыми разме- 
рами? 

3. Каковы требования к спискам формальных параметров проце- 
дур, использующих массивы с регулируемыми размерами? 

4. Процедура использует три массива с регулируемыми размера- 
ми. Какое минимальное число формальных параметров должно быть 
использовано в ней в связи с этим? максимальное? 

5. Процедура использует массив с регулируемыми размерами. 
Может ли эта процедура быть задана как процедура без параметров? 

6. В процедуре осуществляется умножение квадратных матриц, 
имеющих регулируемые размеры. Можно ли результирующий массив 
(матрицу, получаемую в результате умножения исходных матриц) 
передать в вызывающую процедуру через общее поле (вызывающей и 
вызываемой программных единиц) памяти? Можно ли в качестве пара- 
метров циклов при этом воспользоваться формальным параметром, 
определяющим размеры массивов? 

7. Допустимы ли следующие последовательности операторов в 
‘одной программной единице? 

1) РОМСТЮМ Е(А,М) 2) ЗОВВООТИМЕ Е(А,М) 

РІМЕМЅІОМ А(М) · РІМЕМЅІОМ А(10,М) 


АЅЅІСМ 5 ТОМ ` 60 ТО М,(3,4) 
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3) ЗОВВООТИМЕ Е(А,М) 5) ЕОМСТІОМ Е(А,М) 


РІМЕМЅІОМ А(М,5,3) ОІМЕМЅІОМ А(М) 

ро 5 МЕГМЕ `` ро 5 М=1,М `` 

5 СОМТІМОЕ '‘’’° 6) РОМСТЮМ Е(А,М) 

осше... РІМЕМЅІОМ А(М) 

ФОВВООСВШЕ ВА, В.С а 
ЕХТЕКМАГ, В М=5 

САИ. АВ °°` ро 5 К=1,100,М ` 
Порция 130 

‚Массивы с регулируемыми размерами 

(продолжение) 


Пример 1. Рассмотрим процедуру (обозначим ее идентифика- 
тором №) умножения двух квадратных матриц фиксированного по- 
рядка К = 10. Оформим ее в виде подпрограммы с тремя параметрами 
А, В, С, используемыми в ее теле в качестве идентификаторов двух 
исходных массивов (А и В) и результирующего массива (С). По опре- 
делению элемент матрицы-произведения С (1., М) вычисляется по фор- 
муле: 


10 
С(І, М) =} А(І, +В (Г, М) 


Для вычисления одного элемента С (1., М) можно обратиться к опе- 
ратору цикла РО. Для вычисления строки матрицы-произведения 
нам понадобится выполнить двойной цикл, для получения всей иско- 
мой матрицы — тройной цикл. 


ЗОВКООТИМЕ УКА,В,С) 
РТМЕМЗТОМ А(10,10),В(10,10),С(10,10) 
ро 1 М=1,10 

ро 1 Е=1,10 

С(І.,№) =0.0 

ро 1 1=1,10 
С(І.,М)=С(І.,М)--А(1.,1)+В(І,М) 
СОМТІМОЕ 

ВЕТОВМ 

ЕМО 


Напомним, что описание размеров и размерностей любых массивов (что | 
осуществлено в нашем примере с помощью оператора ОІМЕМЅІОМ), 
используемых в каждой программной единице, обязательно. 


— 


в 
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Оператор вызова данной подпрограммы может иметь, например, 
следующий вид: 


САІЛ. \(Х1,Х2, ХЗ) 


При этом размерности массивов Х1, Х2, представляющих собой 
исходные матрицы, должны быть равными 10 х 10. | 

Число формальных параметров может быть уменьшено при дости- 
жении того же результата (поскольку в данном случае массивы имеют 
фиксированные размеры). Например, мы можем отказаться от фор- 
мального параметра С, воспользовавшись общим для вызывающей и 
вызываемой программных единиц блоком памяти. Так, если в вызы- 
вающей программной единице будет задан оператор: 


СОММОМ Х3(10,10) 


и оператор обращения к подпрограмме, которой мы теперь присвоим 
идентификатор \1: 


СА. МІ(ХІ,Х2) 
то подпрограмму М1 можно будет записать в виде: 


Ѕ0ВКООТІМЕ МІ(А,В) 
СОММОМ С(10,10) 


ЕМ” 


Остальную часть программы, не претерпевшую изменений, мы обозна- 
чили многоточием. 

Однако имеется некоторое различие в подпрограммах № и МІ. 

Если первой из них мы можем воспользоваться, исходя из любой 
программной единицы (в которой определены соответствующие мас- 
сивы, имеющие необходимые размеры 10 Х 10), то вторая может быть 
использована только теми программными единицами, которые исполь- 
зуют массивы, определенные в них соответственно оператором 
СОММОМ, то есть для всех обращений используются одни и те же 
поля памяти, обозначенные, быть может, другими идентификаторами. 

Таким образом, аппарат формальных-фактических параметров 
является более гибким, что уже было нами отмечено ранее. 

Пример 2. Продолжим рассмотрение предыдущего примера, 
поставив вопрос о расширении возможностей приведенной в нем под- 
программы вычисления произведения квадратных матриц. Для реше- 
ния той же задачи составим подпрограмму, но такую, которая позво- 
ляла бы находить произведение квадратных матриц любого порядка. 

В таком случае нам понадобится воспользоваться формальными 
параметрами, идентифицирующими регулируемые массивы, что озна- 
чает необходимость включения в число формальных параметров также 
идентификатора, определяющего размеры массивов (в данном случае, 
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так как матрицы квадратные, понадобится ввести только один допол- 
нительный параметр). Присвоим подпрограмме идентификатор №. 


ЅОВКООТІМЕ \/5(А,В,С,К) 
Р1МЕМЗТОМ А(К,К),В(К,К),С(К,К) 


ро 1 М=1,К 

ро 1 1=1,к 

С(М,1)=0 

рО 1 1-1,к 

С(М,1)=С(М,1)--А(М,1)+В(1,1) 
1 СОМТІМОЕ 

ВЕТОВМ 

ЕМР 


Теперь к приведенной подпрограмме можно обратиться, например, 
с помощью оператора 


САМ. М2(Х1,Х2,Х3,12) 
или 
САЦ. №2 (Х1,Х2,ХЗ,М- 1) 


При этом значение переменной М (как и значения всех элементов 
массивов ХІ и Х2 в обоих случаях) должно быть определено к моменту 
вызова процедуры №2. са, 

Следует обратить внимание на то, что в подпрограмме №2 мы не 
можем освободиться от формальных параметров, прибегнув к опера- 
тору СОММОМ; средствами передачи данных в вызываемую подпро- 
грамму или возврата из нее результатов в случае массивов с регули- 
руемыми размерами (кроме аппарата формальных-фактических пара- 
метров) язык ФОРТРАН не располагает. 


Порция 131 
Примеры использования процедур 


Пример 1. 
Пусть требуется составить описание внешней функции, принимаю- 
щей значение скалярного произведения двух любых столбцов произ- 
вольной заданной матрицы (т. е. суммы попарных произведений соот- 
ветствующих элементов этих столбцов). 

Примем следующий план решения поставленной задачи: 

1) Выбор идентификатора функции. 

2) Определение формальных параметров. 

З) Составление тела внешней функции. 

4) Анализ полученного выражения. 

1. Для определяемой нами функции выберем идентификатор $Р 
(в предположении, что этот идентификатор будет соответствевать не- 
явному определению типа переменной $Р). 
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2. По условию задачи в теле функции должно иметь место обраще- 
ние к элементам произвольной заданной матрипы. Считая, что размеры 
данных матриц могут быть различными, мы приходим к выводу, что 
в описании функции следует воспользоваться массивом с регулируе- 
мыми размерами. В соответствии с правилами, изложенными в порции 
129, в число формальных параметров данной внешней функции в та- 
ком случае должны быть включены как идентификатор массива (пусть 
это будет идентификатор вещественного массива А), так и идентифи- 
катор переменной, значение которой определяет размеры данного мас- 
сива А (пусть это будут идентификаторы переменных целого типа: 
М — число строк, М — число столбцов). Поскольку составляемая 
пронедура-функция должна быть рассчитана на вычисление скаляр- 
ного произведения двух произвольно выбранных столбцов любой за- 
данной матрицы, в число ее формальных параметров следует включить 
идентификаторы переменных целого типа, являющихся номерами этих 
столбцов. Пусть это будут идентификаторы І и Ј соответственно. 

3. В принятых обозначениях перейдем к составлению необходимо- 
го описания. 

Первым оператором описания процедуры-функции должен быть 
оператор Е 
ЕОМСТІОМ ЅР(А,М,М,1,Ј) 


Заметим, что формальные параметры в описании функции могут 
быть перечислены в произвольном порядке, однако раз и навсегда 
фиксированном; т. е. таком, каким он указан в операторе ҒОМСТІОМ. 

Следующим оператором в искомом описании должен быть, очевид- 
но, оператор ОІМЕМ№ЅІОМ или оператор ВЕАГ, в котором будет опи- 
сан массив А: 2 


ПЛМЕМЗЮМ А (№, М) или ВЕАГА (№, М) 


Вычисление скалярного произведения двух столбцов матрицы мо- 
жет быть выполнено посредством следующих операторов: 
ро 5 К=1,М 
5 $ЗР=5Р-+-А(К,Г)+А(К,Т) 


которым должен предшествовать оператор 
$Р=0.0 


присваивающий переменной $Р начальное значение, равное 0.0, и обес- 
печивающий тем самым рекурентность выполнения циклического про- 
цесса. 

Таким образом, описание интересующей нас процедуры-функции 
можно представить в виде: 


РОМСТТОМ $Р(А,М,М,1,7) 
РІМЕМЅІОМ А(М,М) 
ЗР=0.0 
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ро 5 К=ЕМ 

5 ЗР=5Р-РА(К,1)»А(К,1) 
ВЕТОВМ 
ЕМ” 


4. Давайте посмотрим, не может ли быть уменьшено число формаль- 
ных параметров внешней функции 5р? 

Как мы знаем, передача информации из вызываюшей процедуры 
в вызываемую может производиться двумя способами: через аппарат 
формальных-фактических параметров (уже примененный нами) или 
через общие блоки данных, определяемые соответствующими операто- 
рами СОММОМ. Напоминаем, что массивы данных могут быть вклю- 
чены в общую область только при условии, что они имеют фиксирован- 
ные размеры (эти размеры могут задаваться непосредственно в опера- 
торе СОММОМ). 

Так, если бы все матрицы, для столбцов которых будут вычислять- 
ся скалярные произведения, имели бы размер 15 Х 10, то вместо при- 
веденного выше описания процедуры-функции ЗР можно было бы 
написать такую процедуру (присвоим ей идентификатор $Р1): 


ЕОМСТІОМ $Р1(1,7) 
СОММОМ А(15,10) 


5Р1=0.0 
РО 15 К=1,15 

15 $Р1=$Р1-- А(К,1)+А(К,1) 
ВЕТОВМ 
ЕМХР 


Таким образом, включение идентификатора массива А и иденти- 
фикаторов М и М, определяющих размеры этого массива в случае ре- 
гулируемых размеров, является обязательным. Что касается парамет- 
ров Ги, то эти параметры могут быть исключены из списка формаль- 
ных параметров, а передача им значений может быть осуществлена 
посредством идентификаторов переменных из общего блока. 

Однако, как было отмечено в порции 113, синтаксис языка 
ФОРТРАН требует наличия по меньшей мере одного формального 
параметра в записи оператора ЕОМСТТОМ. Таким образом, описание 
требуемой функции может быть представлено, например, в виде: 


ЕОМСТІОМ $Р5(А) | 
СОММОМ /8/1,7 $ 
РІМЕМЅІОМ А(15,10) 
5р9—=0.0 
ро 6 К=1,15 

6 $Р2=5Р2--А(К,Т)+А(К,1) 

ВЕТОВМ 
ЕМО 
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ИЛИ 
ЕОМСТІОМ 5Р3(1) 
СОММОМ А(15,10),Ј 
$Р3=0.0 
РО 6 К=1,15 
6 $РЗ=5Р3-- А(К,Т)+А(К,Т) 
ВЕТОКМ 
ЕМ” 


Пример 2. 

Составить описание внешней функции, определяющей скалярное 
произведение 1-й строки матрицы А, имеющей размер 15 Х 10, на 1-й 
столбец матрицы В, имеющей размер 10 х 12. 

В отличие от описания процедуры, приведенного в предыдущем 
примере, в теле этой функции встречаются обращения к элементам 
_ двух матриц: А и В, которые, естественно, должны быть описаны в со- 
ответствующих операторах. 

Ниже приведено описание требуемой функции с учетом возможно- 
сти использования массивов с регулируемыми размерами. 


5% РОМСТІОМ 8Р$(А,В,М,№,.,1,Ј) 

 РІМЕМЅІОМ А(М,№),В(М,1) 
5090.0 
ро 7 К=1,№ 

7 $25=5Р$--А(1,К)+В(К 1) 
ВЕТОЕКМ 

“ЕМ 


Подпрограмма $РР, описание которой приведено далее, предна- 
значена для вычисления произведения матриц А и В, имеющих, соот- 
ветственно, размеры 15 Х 10 и 10 х 12. В теле этой подпрограммы 
имеется обращение к внешней функции 5Р5, описанной выше. 


ЅОВВООТІМЕ $РР(А,В,С) 
РІМЕМЅІОМ А(15,10),В(10,19),С(15,19) · 
тро 10 1=1,15 
ро 10 Ј=1;12 
10 С(1,Ј)==5Р9(А,В,15,10,19,1,7) 
ВЕТОВМ 
ЕМХР 


Пример З. И 

Опишем процедуру ГОС, содержащую в качестве формального 
параметра идентификатор двумерного массива А и выдающую в ка- 
честве результата логический вектор В, к-ая компонента которого 
В (К) равна .ТВИЕ., если хотя бы один элемент к-го столбца матрицы 
А отличен от нуля, и .ЕАГЗЕ. в противном случае. 
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Описание данной процедуры может быть представлено в виде: 


ЅОВКООТІМЕ ГОС(А,М,М,В) 
ГОСТСА!. В 
РІМЕМ5ІОМ А(М,М№),В(№) 
ро 4 1=1,№ 
ро 2 Ј=1,м 
ІЕ(А(Ј,1).№Е.0.)00 ТО 3 
2 СОМТІМОЕ 
В()=.ЕАТЗЕ. 
СО ТО 4 
3 В()=.ТВИЕ. 
4 СОМТМОЕ 
ВЕТОВМ 
ЕМО 


Задание. 1. В некоторой программной единице требуется вы- 
числить 5 — сумму произведений второго столбца матрицы А на тре- 
тий, и 51 — третьего на пятый, а также 52 — сумму квадратов эле- 
ментов второго и третьего столбцов. Запишите операторы присвоения 
для вычисления этих значений, используя описанную в примере 1 
функцию ЭР. 

2. Может ли быть уменьшено число формальных параметров в под- 
программе, приведенной в примере 3? 

З. Замените логический оператор ТЕ арифметическим. 

4. Обязательно ли наличие в теле процедуры оператора 
РІМЕМЅІОМ А(М,М№),В(№? 

5. Сохранив содержание программы, постарайтесь уменьшить 
число составляющих ее операторов. 


Порция 132 
Сопрограмма данных 


Сопрограмма данных используется для присвоения начальных зна- 
чений переменным из помеченных общих блоков. Первым оператором 
сопрограммы данных должен быть оператор, формат которого имеет 
ВИД: 


ВГОСК РАТА 


За этим оператором в сопрограмме данных следуют операторы спе- 
пификаций, операторы начальных данных РАТА и конечная етро- 
ка ЕМ№Р. 

Кроме перечисленных операторов сопрограмма данных не может 
содержать никаких других операторов. 

Сопрограмма данных должна содержать хотя бы один оператор 
СОММОМ и хотя бы один оператор РАТА. 


205 


Пример. 


ВОСК РАТА 

СОММОМ/ВІ.ОСКІ/ОМЕ, ТМО, ТНВЕЕ,РООВ 

РЕАГ, ОМЕ, ТМО, ТНВЕЕ 

МТЕСЕВ ҒООВ 

РАТА ОМЕ, Т\О, ТНВЕЕ /5.0,2%6.5/,ЕООВ/92/ 

ЕМО 
Для данного примера сопрограммы данных ниже приведен порядок 
следования элементов в помеченном общем блоке ВІОСКІ, их тип 
и значения, присвоенные ИМ В сопрограмме данных. 


ААА дк 


ый элемента блока ОМЕ туо ТНВЕВ | РОВ 
дир Аида 
Тип | ВЕАГ ВЕЛАЬ | ВЕАЁ | ІМТЕСЕВ 
Начальное значение | 5.0 | 6.5 | 6.5 | 92 | 


аа 


Если какой-нибудь переменной помеченного блока СОММОМ прн- 
сваивается начальное значение в сопрограмме данных, то в этой со- 
программе должны быть полностью описаны (в операторах типа, 
Р1МЕМЗОМ и т. д.) все элементы данного блока СОММОМ, даже 
если некоторые из них не появляются в операторе РАТА. 

Пример. 

ВІОСҚ РАТА 

ІХТЕСЕК А1 

КЕАТ 1А2(4) 

ГОСТСАГ, ВООГ1, ВООІ2 

РІМЕМЅІОМ АЗ(3) 

СОММОМ/ВГ.ОСК/А1,1А2(4),ВООТ.1, ВСОІ2, АЗ 

РАТА А1,1А2(2),ВООГ.1,ВООТ.2/0,1.0,.ТВУЕ.,.ЕАТЗЕ./, 

* А3(1),АЗ(3)/4.21,2.0/ 

ЕМ” 


Порядок следования элементов в помеченном общем блоке, их тип 
и значения, присвоенные им в сопрограмме данных: 


Идентифика- 


торы элемен- 
ор АІ 


тов блока ТА? (1) |ТА? (2)ТА? (3) | ТА? (4) ВООМ ВООГ,2 |АЗ (1) [Аз (2) | АЗ (3) 
СОММОМ | 

Тип утоа КЕАІ | квАЦ квл кві |061САГ-061САЦ[ВЕЛЕ кел. ка. 

Начальное 

значенне 0 1.0 ТВОЕ. „БАГЗЕ. | 4.21 2.0 
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С помощью одной сопрограммы данных можно присвоить началь- 
ные значения переменным из нескольких помеченных блоков СОММОМ 
Пример. 


ВІОСҚ РАТА 
ІМТЕСЕВ В(5) 

ВЕАІ М,С 

СОМРІЕХ 2 

РІМЕМЅІОМ С(3) 

СОММОМ/ВТ.ОСКЗ/В ,С/ВІ.ОСКА/М,2 

РАТА В(1),В (2), 60(3)/3*5/,С(1),С(9)/1.,9./,2/(9.3,1.5)/ 


Размещение элементов общего блока ВІОСКЗ: 


Идентификаторы 
элементов блока 


К (1 2) б) К (4 5 С (1 С. О) е (3 
ие (0) К (2) К (8) (4) К (5) (1) (2) (3) 
НЕ И АЕН 


Тип ІЧТЕСЕК |1МТЕСЕК|1МТЕСЕВ |1МТЕСЕК |ІМТЕСЕВ | КЕАІ, | ВЕАІ, | ВБАЕ 


Беа алая РИГУ | 


Начальное значе- 
ние 


—==———“—эА.„„ Аи 


Размещение элементов общего блока ВТ.ОСКА: 


щи 


Идентификаторы элементов блока СОММОМ | м МА 
И Е 
Тип . | ВЕАГ, | СОМРЬЕХ 


М— 
Начальное значение | | 29 1.5 


а Еа а 


Для того чтобы изменилось начальное значение, присвоенное пере- 
менной в сопрограмме данных, эта переменная при выполнении олера- 
торов должна появиться: 

1) в списке переменных в операторе ввода 
ИЛИ 
2) в левой части оператора присвоения 
ИЛИ 

З) в качестве управляющей переменной цикла в операторе РО 
или 

4) в качестве параметра в операторе САГ.Г.. 

Сопрограмма данных является программной единицей и трансли- 
руется отдельно. 

Результатом выполнения сопрограммы данных будет размещение 
в соответствующих ячейках памяти начальных значений помеченных 
общих блоков. 
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Задание, 


Присвоить следующим переменным и переменным 


с индексами из общего блока ВГОСК5 начальные значения, исполь- 
зуя сопрограмму данных. В блок СОММОМ входят два и 


СОММОМ/А5/ 

САШ ЅАМІ(ЕК) 

САСЫ 5АМ2(5,А,Е03) 

САШ. ЅАМ9(К,К,7.2) Рг. 

УИ сос 0 | аи 

ЅТ=Акж?+Р1(5, В, Г) 

ЗОЗКОЛІМЕ ЗАМИ(Е) 

МК-Я+ОВТСЕ?(1,К)) Тело 

о осо осте оом 

Б ОВЕ ЅАМІ 

КЕТИК 

ЕМО 

ЅОВЕОШТІМЕ ЅАМ2(1, 5, 

Е т Тело 

САШ. 5АМЗ подпрограммы 

ООО Ва на 5АМ2 

КЕТОЕМ 

ЕМО 

ЕОМСТІОМ Е1(А ,8, 1), 

ое нанне Тело 

А =Ак*1/Е? (А, функции 

КЕТОКМ Е 

ЕМ 

РИМСТТОМ Е2(В, 1) и 

е0 0010 аә ве 6 е ве Тело 
ое ОО ритиш 


САП "УАМО(КК, 2*5,5+1) 


КЕТИВМ 
ЕМО 


ЅИВКОШТІМЕ ЗАМЗ 


тии 
ЕМО 


$АМ5 


| Тело 
подпрограммы 


Рис. 33 
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массива данных целого типа (А 

и В), состоящих из четырех эле- 
ментов каждый (2 Х 2), две ве- 
щественные переменные С и Р 
и переменная логического типа 
ВООІ.3. Перечисленные пере- 
менные должны получить сле- 
дующие значения: А (1, 9% 


А(2,1) =3; Ва) = 4; с= 

— 77.7. ВӨОЕЗ = РАТЕ. 
Порция 133 
Структура 


ФОРТРАН-программы 


Как мы уже говорили в пор- 
ции 1, ФОРТРАН-программа 
может состоять из нескольких 
программных единиц, среди ко- 
торых обязательно должна быть 
одна, называемая главной про- 
граммой. 

Выполнение ФОРТРАН-про- 
граммы всегда начинается с пер- 
вого выполняемого оператора 
главной программы. 

На рис. 33 приведена типич- 
ная структура выполняемой про- 
граммы. 

Выполнение каждой подчи- 
ненной программной единицы, 
как и главной, также начинает- 
ся с ее первого выполняемого 
оператора. Вызов любой про- 
граммной единицы — внешней 
функции или подпрограммы — 
всегда связан с обращением из 
главной программы, непосред- 
ственным или посредством дру- 
гих программных единиц. 

Задание 1. Запишите 
операторную функцию для каж- 


дой из перечисленных ниже формул (тип идентификаторов задан 
неявно): | 


Идентификатор функции Формула Параметры _ 
а) Е т Е Е і 


бЕ УТУ № 
в) М 54 (1- 28)? 5, 


2. Напишите внешнюю функцию с идентификатором С и двумя 
формальными параметрами: Х и А. Значением @ должно быть ах?, 
если Х меньше нуля, и ах?, если Х больше либо равно нулю. 

З. Составьте программу, использующую внешнюю функцию из 
предыдущего задания и подпрограмму умножения матриц десятого 
порядка. Д 

Программа должна выполнять следующие действия: 

а) Чтение с перфокарт массива В размером 10 х 10. Чтение долж- 
но производиться по столбцам (т. е. первый индекс должен меняться 
с большей частотой) в предположении, что исходные данные отпер- 
форированы в формате Е14.4. 

б) Чтение с перфокарт массива ВМ размером 10 Х 10. Чтение дол- 
жно производиться по строкам (т. е. второй индекс должен меняться 
с большей частотой). Используйте тот же самый оператор ЕОВМАТ. 

в) Умножение матрицы В (множимое) на матрицу ВМ (множитель) 
с помощью подпрограммы М. Результат необходимо поместить в мас- 
сив А. 

г) Вычислить, используя функцию С, значение О(А(1,Ј),р) при 
” = 5.0 для каждого элемента массива А. Присвоить значения функ- 
ции соответствующим элементам А, заменив прежние значения. 

д) Отпечатать на АЦПУ содержимое массива А (по строкам) по 
пять чисел в строке в формате Е10.4. 
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Для усвоения методики конструирования ФОРТРАН-программ 
из программных единиц рассмотрим ряд примеров. 

Пример 1. 

Для приближенного вычисления определенных интегралов 


е 
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часто используют метод Симпсона (парабол) численного интегрирова- 
ния, согласно которому 


т—1 
о Те +46 + 5 на + (28—100 + 


+2 а +2), 


$ —а 
где = Бот А 2т — число точек деления интервала интегрирования. 


Приведем программу на ФОРТРАНе, предназначенную для интегри: 
рования функции 
у= |0) 


по методу Симпсона на интервале (а, 6). Данные а, 6, т (обозначим 
их идентификаторами А, В, М) отперфорированы и вводятся с устрой- 
ства с номером 2. Результат в виде «Ј = (значение интеграла)» должен 
быть выдан на устройство с номером 1. 

В программе будет использована внешняя процедура-функция, 
предназначенная для вычисления значений подынтегральной функции 
} (х) (обозначим ее идентификатором Е, а ее аргумент — формальный 
параметр — идентификатором Х). 

Программа численного интегрирования по методу Симпсона: 


ВЕАГ. Ј 
ВЕАР (2,4) А,В,М 

4 РОВМАТ (2Е10.3,16) 
АМ=М 
Н=(В—А)/2./АМ 
1=Е(А)--Е(В)--4.+Е(В—Н) 
мМ1=М—1 
РО 5 К=1,М! 
АК=К 

5 = 4 Е (А-- @.-АК—1.)+Н)--2 «Е (А--2.»АКаН) 
Ј==3/3.+Н 
МҮВІТЕ (1,7)Ј 

7 ЕОВМАТ (5Х,4НЈ, ‚=, ,,Е15.6) 
ТОР _ 
ЕМ 
РОМСТІОМ Е(Х) 


Задание. 1. Объясните, почему в операторе с меткой 5 исполь- 
зуется не целая константа, а вещественная (2.). 

2. Объясните, для какой цели в программу введена переменная М1, 
переменная АК? 
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3. Назовите допустимые перестановки операторов в программе, 
не нарушающие ее смысла. 
4. Чем является в данной программной единице конструкция 


ВН, 
конструкции 
Е(А),Е(В),Е(В—Н),Е(А -2.+АҚғН) 
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Приведенная в предыдущей порции программа (главная програм- 
мная единица) рассчитана на использование совместно с программной 
единицей, представляющей собой описание внешней вещественной 
функции Е с одним вещественным параметром и определяющей зна- 
чение подынтегральной функции. Б 

Так, например, для интегрирования функции 


1 
= -—— 
ДЕЧ 
(на интервале а < х < 0 с заданным числом делений этого интервала 
2т) необходимо в выполняемую программу, помимо главной програм- 
мы, включить следующую внешнюю функцию: 


ЕОМСТІОМ Е(Х) 
Е==1./5068Т(1.--Х3) 
КЕТОВМ 

ЕМ” 


Задание. Қакие изменения должны быть внесены в главную 
программу, приведенную в предыдущей порции, если процедура 
вычисления значений функции Е(Х) будет задана в виде подпрограм- 
мы, описанной посредством двух формальных параметров: Х и У; 
Х — аргумент, У — значение функции? 
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Из изложенного ясна методика использования готовых програм- 
мных единиц: согласуя фактические и формальные параметры (как это 
сделано в приведенном примере), а также переменные общих блоков, 
мы можем подключать в выполняемую программу те или иные про- 
цедуры, заменять одни процедуры другими. 
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Если программная единица не рассчитана на использование в вы- 
полняемых программах наряду с другими подлежащими замене про- 
граммными единицами, то более экономным в сравнении с внешними 
функциями в смысле затраты времени на трансляцию, а также выпол- 
нения рабочих программ является использование в тех случаях, где 
это возможно, операторных функций. 

Так, в рассмотренном нами примере интегрирования функций по 
методу Симпсона можно ограничиться использованием приведенной 
программы (главной программной единицы), вставив в нее оператор- 
ную функцию 


Е(Х)=1./ЗОВТ(1.--Х++3) 


и тем самым освободившись от обращения к внешней функции для вы- 
числения значений подынтегральной функции. 

Задание. Укажите место в главной программе, в которое долж- 
на быть помещена операторная функция Е (Х). 
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Иногда описанный в предыдущей порции прием удается использо- 
вать и в случае более сложного задания функций. 

Пример 2. 

Составить программу для интегрирования функции 


для == 2 


на интервале 0 < х < 4, используя аппарат: 

а) внешних функций, 

6) операторных функций. 

Решение. 

а) Используем главную программу, приведенную в примере 1. 
С этой целью необходимо в выполняемую программу, помимо данной 
главной программы, включить описание внешней функции, которое 
может быть представлено в виде: 


РОМСТІОМ Е(Х) 
К=Х/9.-+1. 
СО ТО (3,12,12),К 

3 Е=1./5ОВТ(1.-- Ха+3) 
ВЕТОВМ№ 


212 


12 Е=$ОВТ((1.-+ Х»Х)/(Х+Х—1.)) 
ЕТОМ | 
ЕМ№Р 


б) Обратив внимание на то, что интервалы, на которых задана 
функпия разными аналитическими выражениями, равны между собой, 
и учитывая свойство аддитивности определенных интегралов 


Б с Б 
[лозах = (рођак род а, 


представим искомый интеграл в виде: 
4 2 4 
КЕ ах ў 1+ х? 
|а + | =— т“. 
0 2 


Сделав замену переменной интегрирования во втором из полученных 
интегралов 


х=14 2, 
получим: | 
4 2 2 
‘И 1 г 14 (4 2} зи ВЕБ 
у 0—1 а = | ЕТ И а а= 


2 
х? + 4х4 5 
3 | ЕЕ ИЕ 
К 4х3 
с 0 
(последнее преобразование произведено на основании независимости 
определенного интеграла от переменной интегрирования). Таким об- 


разом, задача сведена к вычислению интеграла: 
я -- 9 


а 1 ж + 4х5 
о - (ут ЕЕ у Е 4х 
Для завершения поставленной задачи остается включить в ранее 
приведенную программу (главную программу) интегрирования функ- 
ций по методу Симпсона операторную функцию: 
Р(Х)=1./ЗОВТ(1.-- Х=3) --ЗОВТ((Х+Х +-4.*Х +-5.)/(Х+Х 4-4. +3.) 


Задание. 1. Какие значения принимает переменная К, опре- 
деляемая оператором присвоения 


К=Х/2.--1. 


(см. описание внешней функции Е(Х), приведенное в данной порции), 
когда Х изменяется в промежутке 0 < Х < 4? 
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2. Нельзя ли заменить в приведенном в задании 1 операторе кон- 
станты соответствующими константами целого типа? 

3. С какой целью в теле функции Е(Х) в операторе СО ТО указаны 
две одинаковые метки? 

4. Нельзя ли в описании функции Е(Х) воспользоваться одним 
оператором ВЕТОК № 
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Пример 3. 

Составим описание процедуры-функции СМР, предназначенной 
для интегрирования функций по методу Симпсона и описанной с по- 
мощью трех формальных параметров: 

А — нижний предел интегрирования (идентификатор веществен- 

ной переменной), 

В — верхний предел интегрирования (идентификатор веществен- 

ной переменной), 

М — целая переменная, 2*№М — число делений интервала интег- 

рирования. 
Обращение к вычислению значений интегрируемой функции в теле 
процедуры СІМР будет осуществляться посредством использования 
указателя внешней функции Е (вещественного типа), описанной по- 
средством одного формального параметра Х — переменной интегри- 
рования (вещественного типа). Таким образом, в главной программе 
будут определяться пределы интегрирования и число делений интер- 
вала интегрирования, замена же функции интегрирования при необ- 
ходимости интегрирования другой функции будет осуществляться 
посредством замены программной единицы — внешней функции, за ко- 
торой будет сохраняться идентификатор Е. 
Описание процедуры-функции СІМР: 


ҒОМСТІОМ СМР (А,В,М) 
АМ=М 

Н=(В—А)/2./АМ 

С МР=Е(А)-+Е(В)--4.+Е(В—Н) 


КМ=М—1 
ро 5 К=1,КМ 
АК=К 


5 ОМР-1МР-4..Е(А-- (9. АК—1.)*Н)--2.-Е(А--2.жАКаН) 
С МР=С1МР/З.*Н 
ВЕТОВМ 
ЕМХР 


Задание. Опишите приведенную в данной порции процедуру 
в виде внешней функции с одним параметром А, полагая, что: 

а) В и М определяются как идентификаторы переменных, принад- 
лежащих общему блоку; 

6) Ви М — фиксированные константы: В = 10.0; М = 200. . 
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Пример 4. 

Воспользуемся приведенной в предыдущем примере процедурой 
для составления программы вычисления объема тела вращения, полу- 
чаемого при вращении вокруг оси ОХ отрезка кривой у == | (х), а < 
< хх 6, где ] (х) — некоторая функция, алгоритм вычисления зна: 
чений которой предполагается заданным в виде вещественной про- 
цедуры-функции с идентификатором ЕІ и одним формальным парамет- 
ром вещественного типа (обозначим его через Х). 

Объем тела вращения выражается формулой: 


Б 
Ј = п | Р0))гах.. 


_В предположении наличия описаний двух внешних функций СМР 
и ҒІ необходимая программа может быть представлена в виде: 


ВЕАІ. Ј 
ВЕАР” (2,4)А,В,М 
4 ЕОВМАТ (2Е10.3,16) . 
Ј=СІМР (А,В,М)+3. 1416 
МЕТТЕ (1,7) 
ЕОВМАТ (5Х АН = „Е1Б.6) 
ЗТОР 
ЕМ 


Е! 


Е=Е1(Х)9 


ЕОМСТІОМ Е1(7) 
ЕІ = (выражение для вычисления значения } (х)) 


ТОО сик ПЕСО ОЗС 
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Таким образом, главная программа обращается к процедуре СМР 
за вычислением интеграла, умножает его значение на л и выдает 
полученный результат на печать. Процедура СМР обращается к про- 
цедуре Е за значением подынтегрального выражения [7 (%)]?, а про- 
цедура Е, в свою очередь, обращается за значением заданной функции 
# (х) к соответствующей процедуре РІ. | 

Замена пределов интегрирования требует замены соответствующей 
перфокарты на вводе; то же касается замены числа делений интерва- 
ла интегрирования. Замена функции ] (х) требует замены соответст- 
вующей программной единицы ЕОМСТЮМ ЕІ. 

Задание. 1. Укажите допустимые. перестановки операторов 
и программных единиц в приведенной программе, не искажающие ее 
смысла. 

2. Какие из использованных идентификаторов в операторах, от- 
личных от операторов ввода-вывода, могут быть заменены другими 
без. изменения смысла программы? 
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Пример 5. | 

Воспользуемся процедурами, рассмотренными в предыдущем при- 
мере, для построения программы, в которой вычисляются объемы тел 
вращения, получаемые при врашении одной и той же кривой, но огра- 
ниченной несколькими разными нижними ‘и верхними пределами 
значений переменной Х. Допустим, что таких объемов требуется вы- 
числить 20. 

Предположим, что на первой перфокарте отперфорировано число 
М, на каждой из следующих десяти перфокарт — пары чисел А; и В, 
1. г 

Получаемые значения объемов разместим в массиве М1, который 
в конце главной программы выдадим на печать. 

Приведем лишь описание главной программы; описания же всех 
используемых в данной выполняемой программе программных единиц 
мы укажем лишь схематически. 


ВЕАІ МІ 
РІМЕМЅІОМ М1(90),А(20),В(20) 
КЕДР (2,4)М,(А(1),В(1),1=1,20) 
4 ЕОВМАТ (15/(2Е10.3)) 
РО 1 11,20 
1 МІ(1)=3.1416*СІМРС(А(І),В(І),М) 
ҮБІТЕ (1,7)МІ 
2 ЕОВМАТ (5Х,Е15.6) 
ЅТОР 
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ЕМО 
РОМСТЮМ СІМР(А,В,М) 


ЕОМСТІОМ Е(Х) 
Е=Е1(Х)а2 
` ВЕТОВМ 
"ЕМО 
- ЕОМСТІОМ ЕІ(Х) 
Е! = (выражение для вычисления Е (х)) 
КЕТОКМ 
ЕМ№Р 1 


Замечание. Легко видеть, что, заменив процедуру вычисления функции 
Е1(х) процедурой вычисления ее квадрата, можно вместо двух послед- 
них функций ограничиться одной: 


ЕОМСТІОМ Е(Х) 

Е = (выражение для вычисления (Е (х))?) 

ВЕТОКМ 

ЕМО 

Задание. 1. Предполагая, что данные на вводе представлены 
так, как это было указано при описании рассмотренного в данной пор- 
ции примера, запишите оператор КЕАР без списка типа цикл. 

2. Назовите синтаксические типы конструкций, использованны 
в упомянутой программе: 


а) М1(1) =3.1416*СІМРС(А(І),В(І),М) 
6) М!) 

в) 3.1416 | 

г) СІМРС(А(1),В(І),М) 

д) (А(1),В(І),М) 


е) М 
ж) 1 
з) ЕОМСТІОМ СІМР(А,В,М) 
и) (А,В,М) 
к) ЕМО 
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Пример 6. и 


Недостатком предыдущей программы является невозможность ее 
использования в одной и той же программе для вычисления объемов 
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нескольких тел вращения, получаемых при вращении различных кри- 
вых, заданных разными функциями. 

Действительно, при переходе от одной к другой такой функции 
необходимо осуществить замену описания соответствующей внешней 
функции РІ, т. е. изменить компоновку выполняемой программы из 
программных единиц. 

Недостаток подобного рода может быть устранен посредством 
включения в список формальных параметров процедуры СМР интег- 
рирования функций, обозначим ее теперь идентификатором СІМР?2, 
еще одного параметра, соответствующего используемой в ее теле внеш- 
ней функции Е. Пополняя выполняемую программу всем набором не- 
обходимых внешних функций и указывая при обращении к процедуре 
интегрирования не только пределы интегрирования (и число делений 
интервала интегрирования), но и соответствующий идентификатор 
той или иной из этих функций, мы получаем возможность вычисления 
в основной программе объемов тел вращения кривых, заданных разны- 
ми функциями. | 

Ограничимся рассмотрением лишь схемы выполняемой программы 
для случая, когда в главной программе вычисляются объемы двух 
тел вращения, описанных соответственно графиками кривых ГІ и Е2. 
Пределами для переменной Х для этих кривых являются величины А] 
и А2, ВІ и В2, соответственно. В обоих случаях полагаем заданными 
соответственно целые значения МІ и М2, определяющие число точек 
деления интервалов интегрирования. 

При составлении настоящей программы мы воспользуемся упро- 
щением, о котором речь шла в примечании к предыдущему примеру. 


ЕХТЕВМАІ. Е1 ‚Е? 
ВЕЛО (2,4) М1, А1,В1,М2,А2,В2 
4 ЕОВМАТ (15,9Е10.3) 
АМ1=3.1416»С1МРЗ(А1,В1,М1,Е1) 
АМ2=3.1416»С1МРЭ(АЭ, В, М2. Е?) 
МЕ1ТЕ (1,7)АМІ,АМӘ 
7 БОВМАТ (5Х,5НУ ‚=, ,,Е9.4,5Х,5НУ, ‚= „Р9.4) 
ОВО + 
ЕО 
ЕОМСТІОМ С1МРЭ(А,В,М,Е) 
АМ=М 
Н=(В—А)/2./АМ 
СМР? =Е(А)--Е(В)--4.*Е(В—Н) 
ІМ=М--1 
ро 5 Қ=1/1М 
АК=К | 
5 С1МРЭ=С1МР2-+-4.+Е(А-- (2 «+АК—1.)*Н)--2.-Е(А--2.жАК»Н) 
СМР? =СМРЭ/З. 
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КЕТОВМ 

ЕМ” 

ЕОМСТІОМ ЕІ(Х) 

Е1 = (выражение для вычисления |}, (х)12) 
КЕТОЮМ 

ЕМ” 

ЕОМСТІОМ Р2(Х) 

Е2 = (выражение для вычисления |}, (х)Р) 
РЕТОВМ 
ЕМ” 


Задание. 1. Является ли обязательным в приведенной про- 
грамме оператор ЕХТЕКМАТ. РІ, Е2? Чем вызвано отсутствие этого 
оператора в аналогичных программах, рассмотренных в предыдущих 
порциях? 

2. Воспользуйтесь процедурой СІМР2 и составьте программу для 
вычисления площади поверхности вращения линии у = Ё (х), огра- 
ниченной ординатами Х = А, Х = В, вокруг оси ОХ; площадь по- 
верхности вращения вычисляется по формуле: 


В 
О = 2л | ЕЫУИТ- "бах 
А 
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Пример 7. 

Используя процедуру СІМР2, составленную в примере 6, составим 
программу для вычисления координат центра тяжести криволинейной 
трапеции, ограниченной осью ОХ, прямыми х = А, х = В и графи- 
ком кривой у = Ё (х). Искомые координаты центра тяжести вычи- 
сляются по формулам: 


В 
ХЕ (х) ах | [Е (х)]2 ах 


: = 2 
Е(х) ах | (х) ах 
А 


Описание внешней функции Е, предназначенной для вычисления 
значений функции у = Ё (х), предполагается заданным. Как и в 
предыдущих примерах, значения А, В, М задаются оператором ввода; ` 
результаты вычислений выдаются на печать. 


219 


Рассмотрим два варианта программы: 

а) При вычислении подынтегральных функций интегралов, входя- 
щих в числители выражений координат центра тяжести, осуществля- 
`ется обращение к процедуре вычисления значения функции Е(Х). 

6) Задаются три процедуры-функции соответственно для вычисле- 
ния значений функций 


Р(Х), Х-Р(Х), [Е(ХР. 


Вариант а) 

Для возможности передачи процедуре СІМР2 информации о спо- 
„собе вычисления подынтегральной функции в число ее параметров 
включен формальный параметр Е. Фактическими параметрами, кото- 
рые будут ставиться в соответствие этому параметру, будут идентифи- 
каторы внешних функций (обозначим их соответственно ТІ, Т2, 13): 


Т1=Е(Х) 
Т9=Х .Е(Х) 
Т3=[(Х)]8: 


Последние две из них будут включать обращения к первой. 


ВЕАІ КЅ1,ЕТА 
ЕХТЕВМАТ, ТІ,Т9,Т3 
ВЕАР (9,4)М,А,В 

4 ЕОВМАТ (15,9Е10.3) 
К51=СІМР(А,В,М,ТӘ)/СІМР(А,В,М,Т1) 
ЕТА =СІМР(А,В,М,ТЗ)/СІМР(А,В,М,ТІ) 
\ЕТТЕ (1,7) КУГЕТА _ 

7 РОМАТ (5Х,4НК$1=,Е9.4,5Х АНЕТА = ,Е9.4) 
ЅТОР 
ЕМ” 


СС 


ЕМ” 
ЕОМСТІОМ ТІ(Х) 
ТІ = (выражение для вычисления Е (х)) 
ВЕТОВМ 
ЕМ” 
РОМСТТОМ Т2(Х) 
Т2=11$)*Х 
ВЕТОКМ 
‚ ЕМ” 
ЕОМСТТОМ Т5(Х) 
Т3=ТЦХ)ж2 
ВЕТОВМ 
ЕМ” 
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Вариант 6) 

Этот вариант программы будет отличаться от предыдущего лишь 
описаниями внешних функций Т2 и ТЗ, приведением которых мы здесь 
и ограничимся: 


ЕОМСТІОМ Т2(Х) 

Т2 = (выражение для вычисления произведения х + Е (х)) 
КЕТОВМ 

ЕМ” 

ЕОМСТІОМ ТЗ(Х) 

ТЗ = (выражение для вычисления квадрата функции Е (х)) 
КЕТОВМ 

ЕМО 


Чтобы подчеркнуть различие описаний функций Т2, ТЗ в вариан- 
тах а) и б), запишем их конкретные выражения в случае, когда 


1 
ИТЕ 28 


Е) = 


Вариант а) 


РОМСТІОМ ТІ(Х) 
Т1=1./508Т(1.-+Х+а3) 
КЕТОВМ 
ЕМО 
РОМСТІОМ Т2(Х) 
Т2=ТИ(Х)*Х 
ВЕТОВМ 
ЕМО 
РОМСТІОМ ТЗ(Х) 
Т3=тТ1(Х)**2 

° ВЕТОВМ 
ЕМ№Р 


Вариант 6) 

Выражение для ТІ (Х) то же, что и в варианте а). 
ЕОМСТІОМ Т2(Х) 

Т2=Х/508КТ(1.--Х=3) 

КЕТОВМ 

ЕМО 

РОМСТІОМ ТЗ(Х) 

Т3=1./(1.-- Хж3) 

КЕТОВМ 

ЕМО 
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Задание. 1. Воспользуйтесь процедурой С1МР2 и составьте 
программу для вычисления длины четверти дуги эллипса, заданного 
уравнением 


х? у? 
го. 


Длина дуги Г, кривой у =] (х), ограниченной прямыми х = а, х = 6, 
вычисляется по формуле: 


Б 
г= {УТЕ 0)ах 


2. Воспользуйтесь процедурой-функцией СІМР2 и составьте про- 
грамму для вычисления объема тела вращения, получаемого при вра- 
щении вокруг оси ОХ отрезка кривой у = } (х), 0 < х < тп, где ѓ (х) = 
= $12 Хх. 
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Пример 8. 

Рассмотрим в качестве примера алгоритм решения алгебраическо- 
го или трансцендентного уравнения методом половинного деления. 

Если функция у = Ё (х) непрерывна на отрезке [а, 6] и на его кон- 
вах имеет противоположные знаки, то на [а, 6] она имеет по меньшей 
мере один вещественный корень. Если при этом Г (х) имеет знако- 
постоянную производную, то этот корень — единственный. 

Составим программу нахождения корня уравнения Р (х) = 0 на 
интервале [а, 6] в предположении наличия на нем единственного корня. 

Примем следуюшую схему работы алгоритма. Пусть Ё (х) имеет 
разные знаки на концах интервала а и 5. 

1. Полагаем хо = а, хи = Ё. 

2. Вычисляем х =_= в 
3. Проверяем условие 

[Е (х) [< ЕР5. 


При выполнении этого условия принимаем х в качестве искомого 
корня и печатаем его, на чем программа завершает свою работу. Если 
указанное условие не выполнено, переходим к п. 4. 

4. Проверяем условие 


Е (х) - Е (хо) 20. 


При выполнении последнего условия. полагаем № = х н переходим 
кп. 2, В противном случае полагаем № = хи также переходим кп. 0З 
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Нетрудно заметить, что описанный рекуррентный процесс при ука- 
занных условиях является сходящимся. 

В предположении, что процедура вычисления значения заданной 
функции Р (х) может быть задана в виде операторной функции, инте- 
ресующий нас алгоритм можно представить в виде: 


Е(Х)= (выражение для вычисления функции от Х) 
=0 


БЕАР (0,1) ХО, Х1,ЕРЗ 

1 РОЕМАТ (2510.4, 28.6) 

5 Х=(Х04-Х1)/. я 
ТЕ(АВ$(Е(Х)).ГТ.ЕРЗ)СО ТО 6 
ІЕ(Е(Х)*Е(Х0))2,9,4 

о 


СО ТО 10 
4 Х0=Х 
10 К-=К-+1 
СО ТО 5 
6 МВІТЕ (9,7)Х,К 
7 ЕОВМАТ (5Х,Е19.5,14) 
ЗТОР 
ЕМ” 


Задание. Составьте программу вычисления изолированного 
корня уравнения функции Р (х) = 0 на отрезке [а, 6] методом пропор- 
циональных частей (хорд). Схема этого метода отличается от схемы 
метода половинного деления лишь пунктом 2, вычислительная форму- 
ла для которого в данном случае имеет вид: 


х 08 Е (ху) — х1Е (хо) Р 
Р (1) — Е (хо) 
Порция 144 
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Пример 9. : 

В этой порции мы разберем пример использования подпрограммы 
без параметров. Для этого рассмотрим фрагмент программы, в кото- 
ром используется процедура вычисления очередного члена ряда Фибо- 
наччи. (Рядом Фибоначчи называется последовательность чисел |, 92, 
3, 5, 8, 13 ит. д., в которой каждый член, кроме первых двух, являет- 
ся суммой двух предыдущих). 

Пусть подпрограмма, которую обозначим идентификатором ЕВ, 
вычисляет по двум предыдущим членам ряда Фибоначчи очередной 
член этого ряда, который используется в вызывающей программной 
единице. Поскольку получаемый член и непосредственно предшест- 
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вующий ему нужны для вычисления следующего очередного члена, 
эти две величины должны сохраняться от одного обращения к под- 
программе БІВ к следующему. Это может быть достигнуто посредством 
использования общего блока памяти для вызывающей программной 
единицы и данной подпрограммы Е1В. 

Для обозначения двух последних членов ряда выберем идентифи- 
каторы 11 и 12. 

Присвоение начальных значений этим переменным (11 == 12 = 1) 
может быть осуществлено посредством оператора: РАТА 11,12/1,1/ 
в сопрограмме ВОСК РАТА (напоминаем, что присвоить начальные 
данные переменным 11 и 12 оператором РАТА в главной программе 
или подпрограмме БІВ нельзя, так как эти переменные нами включены 
в блок СОММОМ). Сопрограмма ВОСК РАТА может быть записана 
в виде е. 
ВОСК РАТА 
СОММОМ/ВЛ1,12 

РАТА 11,12/1,1/ 

ЕМО 

Здесь общий блок данных обозначен идентификатором В. Таким об- 
разом, помимо программной единицы, вызывающей подпрограмму 
ГІВ, и самой этой подпрограммы ГІВ, в выполняемую программу долж- 
на быть включена приведенная сопрограмма данных. 

Вызываемая процедура, в которой в операторе СОММОМ должны 
быть указаны идентификаторы последних членов ряда Фибоначчи, 
может быть записана в виде: " 


ЗОВКОЧТИМЕ НВ 
СОММОМ /В/11,12 

В = 12 

12=11--12 

П1=1. 

ВЕТОКМ 

ЕМ” 

Задание. 1. Можно ли, отказавшись от сопрограммы ВОСК 
РАТА в приведенном в данной порции примере, получить тот же ре- 
‚ зультат, включив в подпрограмму БІВ соответствующие операторы 
присвоения? 

2. Используя приведенную в данной порции подпрограмму ЕТВ, 
составьте программу для вычисления и выдачи на печать в виде таб- 
лицы следующей последовательности величин: 

ПАИ 
= (= 152, ...720) 
2 Руа 


где через Ё, обозначен і-й член ряда Фибоначчи. 
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3. Предположим, что программная единица, вызывающая подпро- 
грамму ЕВ, содержит операторы: 


ІМТЕСЕВ О,у 
СОММОМ/В/О,У 


Может ли эта программная единица при каждом очередном обраще- 
нии к подпрограмме БІВ получать от нее очередной член ряда Фибо- 
наччи, если она содержит также оператор 


У=\У—9ж*0 
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Пример 10. 

Поставим вопрос о том, каким изменениям должна быть подверг- 
нута приведенная в предыдущей порции подпрограмма ЕВ для пре- 
вращения ее во внешнюю функцию (которую мы обозначим идентифи- 
катором ЕТВО). 

Прежде всего заметим, что определяемая нами функция будет вы- 
давать результат целого типа, поэтому первый оператор ее тела дол- 
жен содержать спецификатор ІМТЕСЕБВ для явного указания типа 
идентификатора ЕІВО. 

Согласно определения понятия внешней функции, результат обра- 
щения к ней должен передаваться ее идентификатору. Поэтому вместо 
идентификатора 12 нами будет использован идентификатор Е1ВО. 

Поскольку ‘синтаксис языка требует наличия по крайней мере од- 
ного формального параметра в определении любой функции, в каче- 
стве последних естественно взять два предыдущие члена ряда Фибо- 
наччи, обозначаемые, как и в подпрограмме ЕІВ, идентификаторами 
П и 12, поскольку процедура Фибоначчи для получения очередного 
члена по существу использует два параметра — два предыдущих члена 
ряда. При этом процедура ЕІВО не только должна получать через 
свои параметры 11, 12 предыдущие члены ряда, но и выдавать через 
них же (помимо выдачи результата через идентификатор ЕІВО) пре- 
дыдущие члены для обеспечения рекуррентного процесса получения 
членов ряда. Таким образом, получаем следующее описание внешней 
функции ЕІВО, в котором, как это легко заметить, [2 и ЕІВО дубли- 
руют друг друга. 
| ІМТЕСЕВ ЕОМСТІОМ ЕІВО (11,12) 

1.==19 
12=114-12 
ЕІВО=12 


8 5—1609 | _ 295 


П=1 
ВЕТОКМ 
ЕМО 


Заметим, что для обеспечения рекуррентного процесса получения чле- 
нов ряда Фибоначчи посредством приведенной процедуры ЕТВО не- 
обходимо также, чтобы вызывающая процедура сохраняла значения. 
переменных 11 и 12, начальные значения которых должны быть также 
обеспечены извне процедуры ЕІВО. 

Задание. Выполните задание 2, приведенное в предыдущей 
порции, воспользовавшись при этом описанной в настоящей порции 
внешней функцией ЕІВО. 
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Фиксация числа массивов, 
обрабатываемых программными единицами 


Обладая обширным запасом тех или иных изобразительных средств, 
каждый язык программирования требует представления описываемых 
в нем алгоритмов в терминах именно этого набора средств. Другими 
словами, в любом языке как классы форм представления обрабатывае- 
мых объектов, так и средства обработки ограничены определенными 
рамками. 

Примером подобного рода ограничений в языке ФОРТРАН являет- 
ся недопустимость обработки сложных объектов — массивов разно- 
типных элементов, древовидных структур и др., а также процедур, 
обрабатывающих массивы, число которых является переменным, оп- 
ределяемым в момент обращения к этим пропедурам, т. е. невозмож- 
ность задания массива с регулируемыми размерами, компонентами 
которого были бы в свою очередь массивы (в случае, когда размеры 
массива, компонентами которого являются массивы, являются фи- 
ксированными, можно задачу свести к рассмотрению последователь- 
ности массивов). Необходимость же в рассмотрении подобного рода 
процедур проиллюстрируем на примере. 

Предположим, что в результате выполнения определенной програм- 
мы составляется некоторая фраза, подлежащая выводу и состоящая 
из заданного числа № слов фиксированной длины. Каждое 1-е (1 = 
== 1, 9, ..., № слово формируемой строки извлекается из некоторого 
І-го словаря, содержащего К; слов. Набор индексов слов, образую- 
ших фразу вывода, определяется некоторой программной единицей. 
Иными словами, в результате выполнения программы образуется 
массив І, (целого типа) 


ГОЛЕ 
226 | 


каждое Т, (Т) лежит в пределах 
1<0)<К, 


Допустим, требуется составить подпрограмму СТР, формирующую 
по массиву Ё строку вывода. При этом, предполагая число М компо- 
нент (слов), составляющих фразу, переменным, мы встаем перед проб- 
лемой составления подпрограммы, обрабатывающей переменное число 
массивов, что, как было замечено, языком не допускается. 

Однако, поскольку объектом обработки составляемой подпрограм- 
мы в нашем случае является массив Г. (размера №), можно составить 
процедуру, рассчитанную на максимальное число М№»„а; (и соответст- 
венно использующую Мн.х массивов — словарей для соответствую- 
щих слов формируемых фраз). Считая, например, что М == 5, а также 
. для определенности положив, что словари имеют размеры, указанные 
в операторе СОММОМ (где им присвоены соответственно иденти- 
фикаторы СІ, С2, С3, С4, С5), необходимую процедуру представим 
в виде: 


ЗОВВООТИМЕ СТР(І) 
СОММОМ /А/С1(10),С2(90),С3(15),С4(10),С5(90) 
РІМЕМЅІОМ 1(5) 

11=141) 

19=1.(9) 

13=1.(3) 

14=1(4) 

15=1 (5) 
\РТТЕ (1,3)С1(11),С2(19),С3(13),С4(14),С5(15) 

3 РОКМАТ (4Х,5А6) 

ВЕТОВМ 
ЕМО 


Заметим, что для хранения пяти массивов, содержащих указанное 
в программе число элементов, требуется 10 +- 20 - 15 +- 10 -- 4 = 
= 59 ячеек памяти. Если предположить, что формируемые строки мо- 
гут содержать любые сочетания содержащихся в этих массивах слов, 
можно получить на выводе 10 • 20. 15 · 10. 4 = 120 000 различных 
фраз. 

Подобного рода процедура может быть использована при диагнос- 
тике ошибок, осуществляемой трансляторами. При этом, например, 
первым словом в выдаваемой фразе может служить глагол, опреде- 
ляющий тип оператора, содержащего ошибку (МБКІТЕ, ВЕАР, А$- 
5ІСМ, СО ТО ит. д.), вторым — код типа ошибки, третьим — номер 
позиции недопустимого символа в операторе и др. 


8* : Е А 227 


Порция 147 
Вывод графиков 


На следующем примере будут проиллюстрированы возможности, 
предоставляемые языком ФОРТРАН для вывода данных, в частности, 
для вывода на печать графиков функций. 

Предположим, что в программе вычисляются значения некоторой 
вещественной функции У (Х) с фиксированным по Х шагом, и тре- 
буется выдать график этой функции на печать. 

Допустим, что число позиций в строке вывода равно 120, а выво- 
димые значения функции У принадлежат диапазону Утт < У < 
< Үтах. Тогда цена Н одного деления (позиции) в строке вывода 
будет определяться соотношением: 


Е В Е Е 


120 Е 


График функции будет представлен в виде последовательности строк 
вывода, в каждой из которых размещен в позиции, соответствующей 
значению функции, символ *. Последняя определяется значением 
переменной целого типа К. по следующей формуле: 


К = (У — Ү„а)/Н 


Предположим, что в одну машинную ячейку помещается 6 симво- 
лов, тогда строка вывода должна быть сформирована из 20 ячеек 
(120 : 6). 

Чтобы поместить символ + в надлежащую позицию строки вывода, 
введем массив текстовых констант: 


А(1)=6Н Е Ел 
А(2) =6Н, м таараа) 
А(3)=6Н и жи и 
А(4) =6 Ни у ви 
А(5)=6Н и ил ти 
А(6)= 69 иии. * 


т. е. А(Т) содержит в І-й позиции символ є, а востальных — пробел 
(ТЕЕ ЖӘЕ (9 

Для формирования строки вывода введем массив В, состоящий из 
20 элементов, каждый из которых прелставляет собой текстовую кон- 
станту, состоящую из шести символов. 

Начальное значение массиву присвоим посредством оператора 


"РАТА В/20*6Н, „иии, 


обеспечивающего засылку пробелов во все позиции строки вывода. 
Чтобы поместить символ є в соответствующую позицию выводимой 
строки, необходимо определить индекс М элемента массива В, который 
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покрывает К-ю позицию строки вывода, и индекс М позиции помещае- 
мого в нем символа +. Указанные индексы, как нетрудно убедиться, 
спределяются равенствами: 

М=К/б--1 , 

М=МОор(к, м—1) 
где МОР — встроенная функция, определяющая остаток от деления 
числа К на число М. е 

Пользуясь массивом констант А и определенными значениями пере- 
менных М и М, для формирования строки вывода остается воспользо- 
ваться операторами: 

В(М)=А(М) 
.. МВИЕ (2,3)В 
З РОМАТ (Х3,20А6) 
В(М)=С 

Здесь последний оператор введен для восстановления исходного зна- 
чения массива В; С — переменная, имеющая своим значением кон- 
станту 6Н; ции ии. 

Таким образом, поставленная задача может быть решена путем 
выполнения следующей последовательности операторов (многоточием 
в ней обозначены не интересующие нас участки программы): 


РІМЕМЅІОМ В(20),А(6) 

ООА В, САЕН, п, Аб а аа 69, а и} 
аы: 6Н ижи, Ом ОЕ ан ОН а 
Тоу 

(определение очередного значения Х) 

(вычисление У при заданном Х) 

К=(Ү—ҮМІМ/Н 

М=К/6- 1 

М№=Ммор(к,м—1) 

В(М)=А(М) 

\АТЕ (2,3)В 
3 ЕОВМАТ (ЗХ ,20А6) 

5 В(М)=С 


`В 

Задание. 1. Замените определение массива А посредством 
оператора РАТА его определением посредством оператора ввода. Ка- 
кой формат должен быть при этом выбран? 

Обращаем Ваше внимание на то, что, варьируя символ для изобра- 
жения графика, мы получим возможность выводить графики, отме- 
чая на них точки кривой разными символами. ы 
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Глава У 


Связи внутри программной единицы 
и между программными единицами 
выполняемой программы 


В данной главе приводится описание соотношений между конст- 
рукциями языка в отдельных программных единицах и между про- 
граммными единицами в выполняемой программе. Сведения, изло- 
женные в этой главе, приводились частично при описании отдельных 
конструкций. Однако в связи с важностью вопроса мы сочли необ- 
ходимым выделить их в отдельную главу. 


Порция 148 
Идентификаторы 


Идентификатор — это слово пользователя, содержащее от одного 
до шести буквенно-цифровых символов и начинающееся с буквы. 

Последовательности символов, выступающие в операторах в роли 
описателей полей (например, А5, 17) или служебных слов (например, 
РЕАО, МЫ ТЕ, [Е ит. д.), не являются идентификаторами и не фор- 
мпруют первые символы идентификаторов. Эти же последовательнос- 
ти символов не запрещено употреблять в качестве идентификаторов. 

Формат любого оператора однозначно определяет, является ли дан- 
ная последовательность символов описателем поля, служебным сло- 
вом или словом пользователя — идентификатором некоторого объекта. 

В программной единице идентификатор (возможно с индексами) 
может определять объект одного (и обычно только одного) из следую- 
щих классов: 

Класс 1. Массив и элемент этого массива (т. е. переменная с ин- 

дексами). 


Класс 2. Переменная (т. е. простая переменная). 

Класс 3. Операторная функция. 

Класс 4. Встроенная функция. 

Класс 5. Внешняя функция. 

Класс 6. Подпрограмма. 

Класс 7. Процедура, которая в данной программной единице не 


может быть классифицирована ни как подпрограмма, ни как внешняя 
Функция. 

Класс 8. Наименование блока. 

Поскольку природа объектов всех названных классов, кроме клас- 
са 7, была достаточно полно выяснена в предыдущих главах, остано- 
гимся только на идентификаторах этого класса. 
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Как было ранее установлено, в том случае, когда идентификатор 
некоторой процедуры используется в качестве фактического парамет- 
ра в данной программной единице, он должен быть в ней указан в 
списке одного из операторов ЕХТЕК МАГ. Такое использование той 
или иной процедуры свидетельствует об имеющем место косвенном 
обращении к ней посредством другой (или нескольких других) про- 
граммных единиц. Если при этом в данной (вызывающей) программной 
единице отсутствует непосредственное обращение к указанной про- 
цедуре, то по ее описанию нельзя установить, является ли косвенно 
вызываемая процедура внешней функцией или подпрограммой. 

Поскольку язык ФОРТРАН допускает раздельную трансляцию 
программных единиц, в процессе трансляции программных единиц, 
обладающих указанной особенностыо, идентификаторы указанных 
фактических параметров не могут быть отнесены ни к объектам класса 
5, ни класса 6 (хотя по их наличию в операторе ЕХТЕВМАЕ. ясно, 
что они принадлежат к одному из них). Именно такие идентификаторы 
и относятся к объектам, составляющим класс 7. 

Задание. Являются ли следующие последовательности симво- 
лов идентификаторами в языке ФОРТРАН? В каком случае? 
а) РО; 6) АК2; в) ІБ; г) ЕОКМАТ; д) ОІМЕМЅІОМ; е) ЕМО; ж) А2; 
з) А(2); и) 16. : 


Порция 149 


Ограничения на использование 
идентификаторов некоторых классов 


1. Если в данной программной единице идентификатор опреде- 
ляет объект, принадлежащий классу 8, т. е. наименование блока, 
то в той же программной единице он может также быть идентифика- 
тором массива, переменной или встроенной функции (т. е. объектов, 
принадлежащих классам 1, 2 и 3). Например, вполне допустимо ис- 
пользование следующих пар операторов в одной программной единице: 


1) СОММОМ/ВІОСК/Х,Ү,2 
ВІОСК =3.5:Х24-А 

2) СОММОМ/ВВ/АК (5,5) 
ВК(1,1)=АРВ(1,2) РА 

3) СОММОМ/АВ$/А 12,В 
В=АВЅ(Х +1.) 2.5 


2. В той программной единице, в которой идентификатор объекта 
класса 5, т. е. внешней функции, следует в записи непосредственно 
после служебного слова ЕОМСТІОМ в операторе ЕОМСТІОМ, этот же 
идентификатор должен появиться к качестве идентификатора объекта 
класса 2, т. е. этот идентификатор должен быть использован в качестве 


281 


идентификатора переменной, стоящей в левой части оператора при- 
своения. Например: 


ВЕА!. ЕОМСТІОМ 11 (В,5,Т) 
П.=$К2--В**2 

КЕТОКМ 

ЕМ” 

3. Если в одной из программных единиц некоторой выполняемой 
программы идентификатор определяет объект, принадлежащий клас- 
су 5, 6, 7 или 8, то ни в какой другой программной единице. данной 
выполняемой программы этот идентификатор не может определять 
никакой другой объект того же класса. Например, если идентифика- 
тор АІ является идентификатором внешней функции, то никакая 
другая внешняя функция, используемая в данной выполняемой про- 
грамме, не может быть определена идентификатором АІ. 

4. В одной программной единице идентификатор не может опре- 
делять объекты, принадлежащие более чем одному классу. Исклю- 
чение составляют возможности, описанные в пунктах 1 и 2 данной 
порции. Например, следующая последовательность операторов в од- 
ной программной единице недопустима: 


А-9.+В/Т(1,9) ° 
ЕМ=А(В,5Т(1,2)) 
ГЕ 


_ 5. Кроме ограничений, описанных в пункте 3 данной порции, дру- 
гих ограничений на использование ‘идентификаторов. в разных про- 
граммных единицах одной выполняемой программы не накладыва- 
ется. | 

Задание. 1. Допустима ли следующая последовательность опе- 
раторов в одной программной единице: 

а) СОММОМ/ВЛ..К,М 6) К=А(Х,Ү) в) ЕОМСТІОМ КК,Т) 


Т=в(,К)-+Н $9. 4-А(3.7) 159) =Т--$ 


2. Допустима ли следующая последовательность операторов в од- 
ной и той же программной единице: 


а) ВЕАТ. РОМСТІОМ К(Х,У) 9 В=ЗОВТ(Н#5) 
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З. Определите классы всех идентификаторов, содержащихся в 
главной программе, рассмотренной в примере 7 порции 142. 

4. Задание З выполнить для процедур Т2 и ТЗ того же примера 7. 

5. Может ли быть установлен класс идентификаторов по их нали- 
чию в следующих фрагментах программных единиц? Каков он? Опре- 
делите эти классы для каждого из встречающихся идентификаторов: 


а) СОММОМ/ВВ/АБ(5,5) г) ЕХТЕВМАТ, А,Х,Ү 


ВК(1,2,1)=АК(1,2) + А $=хХ(Т)--Е(А,У(1.)) 
САТР БОВ) У 
б) СОММОМ/АВ5/А1,С д) ВЕАІ. ЕОМСТІОМ КЕМ(Т) 
с сг ЗІМ(Х) = Х»2-4-А*В 
В=А1(3)--АВЅ(С) с Т1=Т4-0.1*51Ҹ(Т) 
в) ЕХТЕВМАГ, А,Х,Ү е) ЕОМУАГЕМСЕ (А(1,2),С,Х) 
т ОСІСАІ С,Х 


САП, А(А?,АІ) 


Порция 150 


Идентификаторы в операторах спецификаций 
и операторе РАТА 


В языке ФОРТРАН, помимо операторов типа, имеется еще четыре 
оператора спецификаций: РІМЕМЅІОМ, СОММОМ, ЕОУАГЕКСЕ, 
ЕХТЕКМАГ. В этой порции будут рассмотрены объекты, идентифи- 
каторы которых могут появляться в этих операторах. 

1. Идентификатор определяет объект, принадлежащий классу. 1, 
т. е. массив или элемент массива, в том и только в том случае, если 
этот идентификатор употреблен в описателе массива. Напомним, 
что описатели массивов могут появляться только в операторах специ- 
фикации типа, О МЕМЗ1ОМ и СОММОМ. В одной программной еди- 
нице данный идентификатор может появиться в описателе только од- 
ного массива. 

Запись, приведенная ниже, недопустима, так как один и тот же иде- 
нтификатор не может быть использован в описателях разных массивов: 


СОММОМ ВК (4,5) 
РІМЕМЅІОМ ВК(3,2,2) 


2. Идентификатор в операторе СОММОМ, не являющийся наиме- 
нованием общего блока, определяет объект, принадлежащий классу 1 
или 2 (т. е. массив или переменную), но не классу 5 (т. е. идентифика- 
тор внешней функции не может появиться в списке идентификаторов 
оператора СОММОМ). В одной программной единице данный 
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идентификатор может появиться в операторе СОММОМ только один 
раз. Это значит, что запись вида 


СОММОМ/А/Х,У,7(2,2)/В/2(2,2), А.К,Х. 


в языке ФОРТРАН недопустима. 
3. Идентификатор, указанный в операторе ЕОТЛУАТ.ЕМСЕ, опре- 
- деляет объект, принадлежащий классу 1 или классу 2 (т. е. элемент 
массива или простую переменную), но не может определять объект 
класса 5 (внешнюю функцию). 

4. Идентификаторы объектов, принадлежащих классам 6 или 7, 
не могут появляться в списках переменных в операторах типа. В опе- 
раторе типа в данной программной единице любой идентификатор мо- 
жет появиться только один раз. Следующая последовательность опе- 
раторов в языке ФОРТРАН недопустима: 


Ѕ0ВВООТІМЕ АІРНА или ВЕАГ ЕОМСТІОМ ТА(№) 
ІМТЕСЕК АГРНА КЕАІ ТА 


5. Идентификатор, используемый в операторе ЕХТЕКМАІ., опи- 
сывает объект, принадлежащий классу 5, 6 или 7 (т. е. внешнюю функ- 
цию или подпрограмму). В одной программной единице в операторах 
ЕХТЕКМАІ. идентификатор может появиться только один раз. Сле- 
дующая запись операторов ЕХТЕВ МАТ, недопустима: 


ЕХТЕВМАЕ. А,В,51\,К,СО$ 


ЕХТЕКМАГ А,К 
ЕХТЕКМАГ К,5,Т 


6. Идентификатор, употребленный в операторе РАТА, описывает 
объект, принадлежащий классу 1 или 2 (но не внешнюю функцию). 
В выполняемой программе начальное значение может быть присвоено 
единице памяти только один раз. 

Задание. 1. Идентификаторы каких объектов могут появиться 
в операторе СОММОМ? ЕОЧТУАГЕМСЕ? 

2. Допустимы ли следующие последовательности операторов: 


а) СОММОМ/ХІ/ХІ,Ү1,21 6) ЕОМСТІОМ ҚА) 
Х1=Ү1--21 СОММОМ/В/Х,Ү,81,82 


9 Допустимы ли следующие последовательности операторов: 


ИЛИ 


2) а оой оов со ое 


ЕОМУАГЕМСЕ(И 12,13) 
РАТА 11,Х,12/1,2.,0/ 
Ее Т 
ЕООУАТЕМСЕ(А,В,С) 
РАТА А,С/2.2,3.3/ 


‚ 234 


в) ОІМЕМЅІОМ К(3),1.(20) 
РАТА К(9),1(1)/2,0/ 
МТЕСЕВ 5 

_ РАТА $,К(1),К(2)/3+5/ 


Порция 151 
Объекты, описываемые идентификаторами 


Массив и элемент массива 


В любой программной единице за идентификатором массива всегда 
должен следовать заключенный в скобки список индексов. Исключение 
составляют случаи, когда идентификатор массива встречается: 

‚ 1. В списке оператора ввода-вывода. 

2. В списке формальных параметров. 

3. В списке фактических параметров при обращении к внешней 
процедуре. 

4. В операторе СОММОМ. 

5. В операторе спецификации тина. 

При этом следует иметь в виду, что во всех перечисленных случаях, 
кроме второго, идентификатор массива может встречаться также и с 
последующим списком индексов. : 

Формальный параметр может быть идентификатором массива толь- 
ко в том случае, когда ссответствующий ему фактический параметр 
в обращении к этой внешней процедуре является идентификатором 
массива или идентификатором элемента массива. В последнем случае 
длина массива, идентифицируемого формальным параметром, должна 
быть не больше длины массива, идентифинируемого соответствующим 
фактическим параметром. Пример правильного соотношения разме- 
ров массивов, являющихся формальными и фактическими параметра- 
ми: 


Вызывающая программная Подпрограммы 
единица 
а. А ЗОВВОПТШМЕ А(К,В) 
Р1МЕМЗОМ В(7,7),С(7,7) Р1МЕМЗЮМ В(40) 
САМ. А(Ј,В) г зы ео 5 
о и Р РЭ ВЕТОВМ 
САШ. Е(С,В ЕМО 
о о Оо о пе Ѕ50ВВООТІМЕ Е(Х,Ү) 
ЕМХР” РІМЕМЅІОМ Х(7,5) 
аа е еа ет са ре аео ее . 3% 
РЕТОВМ 
ЕМО 


Соотношение размеров массивов в вызывающей и вызываемой про- 
граммных единицах, приведенное в следующем примере, противоречит 
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правилам языка, так как размеры массива АК в подпрограмме К 
превышают размеры массива, идентифицируемого фактическим па- 
раметром: 


Вызывающая программная Подпрограмма 
единица 
И о ЗОВВООТМЕ К(К,АК) 
РІМЕМЅІОМ В(7,7) РІМЕМЅІОМ АК(50) 
ЕАМ, К(Ј,В) та 
и. ВЕТОКМ 
ЕМ” ЕМ” 
^ Если фактический параметр является идентификатором элемента 
массива, длина массива, идентифицируемого формальным параметром, 
не должна превышать размера той части фактического массива, кото- 
рая начинается данным элементом и завершается последним из них, 
считая эти элементы в порядке возрастания приведенного индекса 
массива, т. е. должна быть меньше или равна длине массива, иденти- 
фикатор которого употреблен в фактическом параметре, плюс единица, 
минус значение приведенного индекса этого элемента массива. На- 
пример, если фактическим параметром при обращении к подпрограмме 
КАМ является идентификатор элемента массива Р2Р(5) и массив Р2Р 
содержит 10 элементов, то размер массива Н2Н, идентифицируемого 
соответствующим формальным параметром подпрограммы КАМ, дол- 
жен быть не более 10 + 1—5 = 6. | 
_ Размер массива, идентифицируемого формальным параметром, 
может быть фиксированным и заданным в этом случае константами 
или может определяться в вызывающей программной единице и пере- 
даваться через соответствующий параметр во внешнюю процедуру. 
Если индекс элемента массива, являющегося фактическим парамет- 
ром, задан константой, то фактический параметр, определяющий раз- 
мер массива в процедуре, тоже может быть задан константой, значе- 
ние которой, как было отмечено выше, не может превосходить вели- 
чину К, где 


ео. 6 а 6006 5 


К=М№+1—1 


Здесь М — размер массива, идентифицируемого фактическим пара- 
метром в вызывающей программной единице; 
І. — приведенный индекс элемента массива, являющегося фак- 
тическим параметром. 
Рассмотрим следующий пример: 
Вызывающая программная Подпрограмма 
единица 
И ЗОВКОЧПТИМЕ Р2(В,№) 
РІМЕМЅІОМ А(20) ЮІМЕМЅІОМ В(М) 
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оС ЕО а Е че о а © а о с 566 са0 5 


ИН: \/РТТЕ(1,7)В 

СА, 'Р2(А(3),6) 7 ЕОВМАТ(Е1О.3) 

ЕО е в АГ РЕТОВМ пс ъс ОЭ 
ЕМР 


В приведенном примере при первом обращении к подпрограмме 
Р2 формальный параметр М получит значение 11, т. е. второй оператор 
подпрограммы будет эквивалентен оператору 


РІМЕМЅІОМ В(11) 


и одним из результатов выполнения подпрограммы Р2 будет печать 
значений одиннадцати элементов массива А, начиная с десятого эле: 
мента. При втором обращении к указанной подпрограмме М получит 
значение 6 и будут напечатаны значения шести элементов массива А, 
начиная с третьего. А 

Если же индекс элемента массива, являющегося фактическим па- 
раметром при обращении к подпрограмме, задан переменной (или со- 
держит переменную), то фактический параметр, определяющий раз- 
мерность массива в вызываемой процедуре, удобнее задавать также 
переменной. Значение этой переменной, как, впрочем, и значение ин- 
лекса, должно быть определено к моменту обращения к подпрограмме 
(и вычисляется по приведенной выше формуле). Ниже приведен при- 
мер, иллюстрирующий возможности передачи размерности массивов 
в вызываемую подпрограмму: 


Вызывающая программная Подпрограмма 
единица 
Бе Е ЗУВКОЧТИМЕ Р2(В,М) 
РІМЕМЅІОМ А(20) РІМЕМЅІОМ В(№) 
= КАғ1ЛМ№/Ҹ3 `` а Е. М 
А К: М/КТЕ(1,7)В 
5 1=20--1-—1 7 РОКМАТ(Е10.3) 
САШ. РА ` ВЕТОК 
сое ЕМ 
1=1--3 
СО ТО 5 
р 
СО ТО 5 
о 
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Элементы массива АР АР (1) | АР (2) | АР (3) | АР (4) | АР (5) {АР (6) |АР (7) | АР (8) 
Элементы массива ВР | | | | Е | | ВР (1) | ВР (2) 
Единицы памяти | Й | 141114211403 |244 1445 [1466 [2-7 


При выполнении вызывающей программной единицы до первого 
обращения к подпрограмме Р2 вычисляется значение индекса І и пере- 
менной Ј, определяющей размеры массива вызываемой подпрограммы 
(массива В); при каждом обращении к указанной подпрограмме эти 
индексы переопределяются. Ограничения на размеры массива В, ис- 
пользуемого в вызываемой подпрограмме (идентификатор этого мас- 
сива является формальным параметром), накладываются в связи со 
следующими обстоятельствами. Дело в том, что для элементов мас- 
сивов, используемых в вызываемых программных единицах, отдельная 
память не отводится, если идентификаторы этих массивов являются 
формальными параметрами этих процедур. При вызове процедур дей- 
ствия над элементами таких массивов выполняются на тех полях па- 
мяти,. которые занимают соответствующие массивы вызывающей про- 
граммы, т. е. как бы объявляется эквивалентность определенных эле- 
ментов этих. двух массивов. Причем, если фактическим параметром 
является идентификатор элемента массива, то этому элементу ставится 
в соответствие первый элемент вызываемого массива. Ниже на при- 
мере показан механизм совмещения в памяти элементов вызывающего 
и вызываемого массивов. 

‚Предположим, что фактическим параметром процедуры является 
седьмой элемент массива АР, содержащего 20 элементов. При вызове 
подпрограммы, формальным параметром которой является идентифи- 
катор массива ВР, память будет распределена, как указано в 
таблице. 

Из этого примера видно, что при вызове процедуры в данном слу- 
чае длина массива ВР не может быть более 14, т. к. иначе размеры 
массива ВР выйдут за границы массива АР. Число 14 как раз и яв- 
ляется в данном случае результатом вычисления по приведенной выше 
формуле: К = 20 + 1—7 = 14. 

Задание. 1. Какова максимально допустимая длина массива 
РР, идентифицируемого формальным параметром подпрограммы, если 
массив, идентификатор которого является соответствующим факти- 
ческим параметром, содержит 40 элементов? 

2. Как определяются размеры массива, идентифицируемого фор- 
мальным параметром, если соответствующий фактический параметр 
является идентификатором элемента массива? 
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[Ро АР (10)|АР (11) {АР (12) [АР (13) (АР (14) |АР (15) |АР (16) (АР (17) АР (18) (АР (19) |АР (20) 
ВР (3) | ВР (4) | ВР (5) | ВР (6) | ВР (7) | ВР (8) | ВР (9) | ВР (10)| ВР (11)| вр «12)! ВР (13)| ВР (14) 
| 14-9 [1-10 геи пераз | пытае 15 [ив атт Пече Иер 19 


Порция 152 


Объекты, описываемые идентификаторами 
(продолжение) 


Переменная 


В отдельной программной единице идентификатор описывает объект, 
принадлежащий классу 2 (переменную), т. е. является идентификато- 
ром переменной, если он удовлетворяет всем трем следующим усло- 
ВИЯМ: 

1. Не описывает объект, принадлежащий классу 6 или 7. Это зна- 
чит, что если в данной программной единице некоторый идентифика- 
тор является идентификатором подпрограммы или внешней функции, 
то он не может быть также и идентификатором переменной. Следую- 
щие последовательности операторов в записи программной единицы 
на языке ФОРТРАН недопустимы: 


51) ЕХТЕВМАТ, А,В 
САШ; Е(А,Х) 
о ч 


(Идентификатор А не может принадлежать классу 5 и классу 2) 
2) ЕХТЕВМАІ А,В Е 


АВС) “ 


ИТ 


(Идентификаторы А и В не могут принадлежать классу 7 и классу 2) 
и 
САГЕ Е (Х,У) 
БАХ . . * 
(Идентификатор Е не может принадлежать классу 6 и классу 2) 
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2. Не стоит перед левой скобкой. Исключение составляет появле- 
ние этого идентификатора, являющегося в данной программной еди- 
нице идентификатором переменной, перед скобками с формальными 
` параметрами в операторе ЕОМСТІОМ. Другими словами, если неко- 
торый идентификатор является в данной программной единице иден- 
тификатором переменной, он не может в этой же программной единице 
быть идентификатором объекта, принадлежащего классу 1,3. 45686 
Если данная программная единица является внешней функцией, то 
идентификатор этой функции должен быть и идентификатором пере- 
менной, определяющей ее значение. 

Примеры допустимых и недопустимых последовательностей опера- 
торов в записи на ФОРТРАНе: 


1) ЕОМСТЮМ К(А,В) Такая последовательность операторов до- 
рва БЕ БА пустима: идентификатор К принадлежит 
ВЕ 77. И. . классу 2 (и классу 5). 
ВЕТОВМ 

_ ВМ 

2) РОМСТЮМ К(А,В) Приведенная последовательность операто- 
РІМЕМЅІОМ К(10) ров недопустима: идентификатор К ке 
И ое: может принадлежать классу 2 и клас- 
о оо б СУ 
ЕМ бн. | 

З) 6. Кб. Такая последовательность операторов 
А=В-+С недопустима: идентификатор А не может 
И жа принадлежать одновременно классу 2,5 
р=А(1,7) —С(3) и 6. 
САМ, А(Е,5) 
е сн 


3. Используется, быть может, в данной программной единице для 
обозначения объекта, принадлежащего. классу 8. Примеры допусти- 
мых и недопустимых последовательностей операторов в одной програм- 
мной единице: 

Допустимая Недопустимая 


СОММОМ/В/К,Г, А(Х,У)=Х»=2 -- У««2-- ХҮ 


о вае о ео ес 


ЕМО №=(А(1)- 2)/2.0 
ЕМО 
(Идентификатор К принад- (Идентификатор А неможет 
лежит классу 2). одновременно принадлежать 


классу 1 и классу 3). 
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Задание. Может ли один и тот же идентификатор быть в одной 
программной единице идентификатором: 

а) подпрограммы и переменной? 

6) внешней функции и переменной? 

в) операторной функции и переменной? 


Порция 153 


Объекты, описываемые идентификаторами 
(продолжение) 


Операторная функция 


В одной программной единице идентификатор описывает объект, 
принадлежащий классу 3, т. е. является идентификатором оператор- 
ной функции, если он удовлетворяет одновременно трем следующим 
условиям: 

1. Не встречается в операторе ЕХТЕВ МАЕ и не описывает объект, 
принадлежащий классу 1, т. е. не является идентификатором внешней 
процедуры, используемым в данной программной единице в качестве 
фактического параметра, или идентификатором массива или элемента 
массива. 

2. Этот идентификатор всегда предшествует левой скобке, за исклк- 
чением, быть может, того случая, когда он встречается в операторе 
типа, т. е. за идентификатором операторной функции всегда должен 
следовать список параметров, заключенный в скобки. 

. 3. В данной программной единице этому идентификатору соответ- 
ствует описание операторной функции. 


Встроенная функция 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 4, т. е. является идентификатором встроенной 
функции, если он удовлетворяет одновременно четырем следующим 
условиям: 

1) Не встречается в операторе ЕХТЕВМАГ.. Напоминаем, что если 
идентификатор, совпадающий с идентификатором встроенной функции, 
описывается в операторе ЕХТЕКМАГ, то встроенная функция с этим 
идентификатором не вызывается и выполняемая программа должна 
включать внешнюю процедуру, именуемую этим идентификатором. 
Например, если в некоторой вызывающей программной единице имеет- 
ся оператор 


ЕХТЕКМАІ, АМІМІ,С2С 


то это значит, что первым оператором одной из программных единиц 
должен быть оператор | 


ЕОМСТІОМ АМИМИ(...) 
7041 


или 
ЅОВВООТІМЕ АМИМ((...) 


2. Идентификатор встречается среди идентификаторов в табл. 23. 

3. Идентификатор не встречается в операторе типа, описывающем 
тип данной функции иначе, чем он описан в табл. 23, например, если 
идентификатор АМАХ! является идентификатором встроенной функ- 
ции, то описание его в следующем операторе типа недопустимо: 


МТЕСЕВ АМАХІ 


Описание его в операторе 
ВЕАГ, АМАХІ 


допустимо (но бесполезно). 

4. Идентификатор всегда стоит перед списком фактических пара- 
метров, заключенным в скобки. Исключение составляет появление 
этого идентификатора в операторе типа. 

Использование встроенной функции в данной программной едини- 
це не исключает использования ее идентификатора в другой програм- 
мной единице этой выполняемой программы для описания объекта, 
принадлежащего другому классу. 


Внешняя функция 


Идентификатор в данной программной единице описывает объект, 
принадлежащий классу 5 (внешнюю функцию), т. е. является иденти- 
фикатором внешней функции, если он удовлетворяет следующим ус- 
ловиям: 

1. Следует непосредственно после служебного слова ЕОМСТІОМ 
в операторе ЕОМСТІОМ. 

2. Не описывает объект, принадлежащий классу 1, 3, 4 или 6, 
т. е. в той же программной единице идентификатор внешней функции 
не может быть также идентификатором массива или элементом этого 
массива, идентификатором встроенной функции, операторной функции 
или подпрограммы. 

3. Всегда стоит перед левой скобкой, за которой следует список 
параметров, за исключением его появления в операторе типа, операто- 
ре ЕХТЕКМА!, или в списке фактических параметров при обращении 
к внешней процедуре с идентификатором, отличным от данного иден- 
тификатора (т. е. при косвенном обращении к данной функции). 

Если некоторый идентификатор используется в данной програм- 
мной единице в качестве идентификатора внешней процедуры, он дол- 
жен появиться хотя бы в одном из описанных выше употреблений, 
т. е. в качестве идентификатора переменной в указателе, в операторе 
ЕХТЕВМАГ, в операторе типа или в качестве фактического параметра. 
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Подпрограмма 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 6 (подпрограмму), т. е. является идентифи- 
катором подпрограммы, если он удовлетворяет одному из следующих 
условий: 

1. Следует непосредственно после слова ЅОВВООТІМЕ в опера- 
торе ЗОВВОПИМЕ. 

_ 2. Следует непосредственно после слова САТ.Т, в операторе САІШ. 


Внешняя процедура 


В данной программной единице идентификатор описывает объект, 
принадлежащий классу 7 (внешнюю процедуру, тип которой в дан- 
ной программной единице нельзя классифицировать), т. е. является 
идентификатором внешней процедуры, если он удовлетворяет следую- 
щим условиям: 

1. Появляется в списке оператора ЕХТЕВМАГ. 

`2. Появляется в качестве фактического параметра при обращении. 
к внешней процедуре. 

3. Не является идентификатором внешней функции в указателе 
функции и идентификатором подпрограммы в операторе САТ.Т.. 
<. Пример. 


ЕХТЕКМАІ Х,Ү 
САГА (2,9) `` 
кна)" 
а 


В этом примере появление идентификаторов Х и У в операторе 
ЕХТЕКМАІ, говорит о том, что они являются идентификаторами 
внешних процедур и могут встретиться в качестве фактических пара- 
метров при обращении к внешним функциям или к подпрограммам 
(в нашем примере — в операторах САІШ. А(2.,Х) и В=$**4--Е(У)). 
Но ни один из этих операторов не дает нам ответ на вопрос, к какому 
типу относятся процедуры Х и Ү: к внешним функциям или подпро- 
граммам. | 
25 Если фактический параметр при обращении к внешней процедуре. 
является именем другой внешней процедуры, соответствующий фор- 
мальный параметр может быть идентификатором внешней процедуры 
и может им являться только в этом случае. 

Объект, принадлежащий классу 7, может существовать только 
локально в данной программной единице. Во всей совокупности про- 
граммных единиц, составляющих данную выполняемую программу, 
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идентификатор объекта, принадлежащего классу 7, должен употреб- 
ляться как идентификатор объекта, принадлежащего классу 5 или 6. 


Наименование общего блока 


Идентификатор описывает объект, принадлежащий классу 8 (на- 
именование общего блока), тогда и только тогда, когда он использует- 
ся как наименование общего блока в операторе СОММОМ. 


Порция 154 
Память ЭВМ 


Важнейшим понятием в современных ЭВМ является понятие па- 
мяти, которое находит свое четкое преломление в языках программи- 
рования. 

Память современных ЭВМ представляет собой некоторую физи- 
ческую среду, приспособленную для хранения кодов, которыми могут 
быть как представленные в некоторой системе кодирования данные 
(целые, вещественные и т. д.), так и программы (алгоритмы), записан- 
ные на некотором языке и надлежаще закодированные. 

Как было отмечено ранее, для выполнения на ЭВМ любого задания 
соответствующий алгоритм должен быть представлен, в конечном сче- 
те, на машинном языке, непосредственно воспринимаемом данной ма- 
шиной. Если возникает необходимость в описании алгоритма на неко- 
тором более удобном для данного случая языке программирования, 
то процесс решения задачи расчленяется на несколько этапов (шагов): 
например, трансляция на некоторый промежуточный язык и получение 
объектного модуля; загрузка и получение загрузочного модуля и др. 

По характеру связи с. операционным устройством (переработчиком 
информации) различают два вида памяти: внутреннюю (или оператив- 
ную) и внешнюю. 

Отличительной особенностью внутренней памяти является воз- 
можность автоматического доступа к ее отдельным полям со стороны 
операционного устройства. Минимальные из этих полей называются 
байтами. Обычно их объем составляет 8 двоичных разрядов (битов). 
Как правило, байты могут коммутироваться в более крупные единицы: 
полуслова (например, два байта), слова (4 байта), двойные слова 
(8 байтов). При этом объединяться могут не любые поля, а физически 
расположенные определенным образом в непосредственном соседстве 
друг с другом. 

Для обращения к полям памяти — посылки в них кодов (режим 
записи) или снятия копий с содержащихся в них кодов (режим чтения)— 
полям памяти присваиваются номера — адреса, коды которых ис- 
пользуются при записи программ на машинных языках и выполнении 
программ. 
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Эквивалентом понятия адреса в языках программирования явля- 
ется понятие идентификатора. 

Для хранения констант, значений переменных и массивов в памяти 
ЭВМ отводятся поля соответствующих размеров. Коды, размещаемые 
в эти поля, расшифровываются операционным устройством согласно 
с типом величин, поскольку один и тот же набор нулей и единиц в 
ячейке с двоичным кодом, рассматриваемый, например, как текстовая 
константа или вещественное число, обозначает разные значения. 

Таким образом, наличие в языке различных объектов (целых, ве- 
щественных и т. д.) вызывает необходимость распознавать тип данного 
по его идентификатору. 

С этой целью используется концепция описания типов идентифи- 
каторов, реализованная в ФОРТРАНе частично (для целого и вещест- 
венного типов) неявным образом. 

Описание идентификатора в программе в операторе спецификации 
(или его появление в программе согласно неявному. определению типа) 
служит информацией для выделения соответствующего поля данному, 
обозначаемому (идентифицируемому) этим идентификатором. Появле- 
ние описания используется для резервирования поля памяти, но оно 
не определяет никакого значения у данного. Тем не менее наличие 
описаний может служить достаточной информацией для того, чтобы 
сделать вывод о невозможности решения задачи посредством разме- 
щения всех ее программных единиц во внутренней памяти, если «зака- 
занные» поля в сумме окажутся превосходящими общий объем внут- 
ренней памяти, отводимой для данных. Эта информация может быть 
выявлена транслятором и использована для сегментации программы 
или сообщена пользователю в качестве указания на необходимость 
сегментации данных, т. е. разделения их на части, размещаемые 
во внешней памяти и вводимые во внутреннюю память по мере надоб- 
ности. В последнем случае может возникнуть необходимость во внесе- 
нии надлежащих изменений в алгоритм выполнения задания. 

Внешняя память (иначе, внешняя среда) обладает своими положи- 
тельными качествами: она удобна для длительного хранения инфор- 
мации, отличается большой емкостью и возможностью отделения от 
машины (магнитные ленты, сменные диски, перфокарты). При этом, 
если данные предполагается в дальнейшем использовать для. внут- 
ренней обработки, эти данные на внешних носителях (во внешней сре- 
де) могут храниться в форме внутреннего машинного представления, 
которое во многих случаях не совпадает с внешним представлением, 
предназначенным для обозрения человеком выводимых данных на пе- 
чати (вставка пробелов для удобочитаемости, гашение ведущих нулей 
у целой части чисел и др.). 

Определив идентификатор (описав его в случае недостаточности 
неявного задания), можно использовать этот идентификатор в записи 
операторов при составлении программы. 
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Однако при этом следует иметь в виду, что какова бы ни была 
величина, она остается неопределенной до тех пор, пока не ‘будет 
выполнено присвоение ей значения: отведенное ей поле памяти «свобод- 
но» и чтение из него (снятие копий) запрещено, пока в это поле не бу- 
дет заслано некоторое значение соответствующего типа. Вместе с тем, 
на что мы обращаем особо Ваше внимание, раз определенная величина 
может не только переопределять в процессе выполнения программы 
свое значение, но в некоторых случаях может стать снова неопреде- 
ленной. 

Описание этих случаев заслуживает отдельного рассмотрения, ко- 
торому мы посвятим следующую порцию. 

Задание 1. Какие виды памяти Вы знаете? 

2. Какие режимы обращения к памяти определены в программиро- 
вании? 

3. Что называется байтом? 

4. Как может быть использована информация об идентификаторах 
транслятором? 

5. Как описывается тип данных в ФОРТРАНе? 

6. Какая форма обращения к данному может оказаться недопусти- 
мой и в каком случае? 


Порция 155 
Определенность и неопределенность величин 


Любая величина, которая не определена посредством оператора 
РАТА, к моменту первого выполнения первого выполняемого опера- 
тора главной программы является неопределенной. 

Оператор РАТА задает начальное определение всем тем перемен- 
ным и элементам массивов, которые связаны в нем с константами, тип 
которых соответствует типу переменных и массивов. 

Каждая определенная величина может быть переопределена, 
за исключением: 

1. Управляющая переменная оператора цикла ОО, его начальный 
параметр, конечный параметр и параметр приращения не могут быть 
переопределены во время выполнения операторов, принадлежащих 
области данного оператора ПО или его расширенной области. Напри- 
мер, оператор ОО в следующем примере: 


ро 5 1=КЛ.М 
5 СОМТІМОЕ 


недопустим, т. к. он содержит в своей области оператор присвоения, 
в левой части которого содержится конечный параметр. 
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2. То же ограничение касается элементов списка типа цикл в опе- 
раторах ввода-вывода. Оператор ввода 


КЕАР(2,5)((№,А(1,Ј),1=1,),Ҹ2,10) 


недопустим, так как он изменяет значение конечного параметра. 

З. Значения фактических параметров, задающих размеры массива 
в списке параметров обращения (которые должны быть определены 
к моменту обращения к функции или процедуре), не могут переопре- 
деляться во время выполнения процедуры. 

4. Вычисление функций, вызванное наличием указателя функции 
в выражении, не переопределяет значений никаких других элементов 
в этом выражении, операторе присвоения или операторе САІШ. 

5. Если обращение к процедуре влечет связь одних формальных 
параметров с другими формальными параметрами той же самой про- 
цедуры или с величиной, входящей в общий блок, то такие параметры 
не могут переопределяться в процессе выполнения внешней проце- 
дуры. 

Рассмотрим операторы, приводящие к определенности и к неопре- 
деленности величин в ФОРТРАНе. 

1. Величина, идентификатор которой стоит перед знаком равенства 
в арифметическом или логическом операторе присвоения, становится 
определенной в момент завершения выполнения этого оператора. 
Исключение составляет случай, когда правая часть арифметического 
оператора содержит действия, приводящие к возведению компоненты 
типа целое в степень типа вещественного или повышенной точности 
или к возведению основания, равного нулю, в нулевую степень. 
В этом случае оператор присвоения неопределен (как правило, в этом 
случае реализацией обеспечивается выдача соответствующей диагно- 
стической информации). То же самое касается невозможности вычисле- 
ния значения выражения, компоненты которого не определены мате- 


матически (например, встроенная функция МОР не определена, если · 


ее второй аргумент равен нулю). 

2. Величины, стоящие в списке оператора ввода-вывода, становятся 
определенными в процессе выполнения соответствующих операторов. 
При этом связанные с ними величины (например, посредством операто- 
ров ЕДООІУАТЕМСЕ) становятся определенными лишь после завер- 
шения выполнения соответствующего оператора. 

Таким образом, если две переменные КА и КВ определены как 
эквивалентные в данной программной единице посредством оператора 


ЕСОТУАТЕМСЕ и КА присвоено посредством оператора присвоения: 


значение 3, то это же значение будет иметь и переменная КВ. Пусть 
выполняется оператор ввода, в котором первым элементом списка 
является КА, а вторым М(КВ) (элемент массива М с индексом КВ): 


ВЕАР(2,4)КА,М(КВ) 
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Хотя вначале будет присвоено новое значение переменной КА (на- 
пример, значение 5), следующее за ним на носителе значение (в соот- 
ветствующем формате) будет присвоено элементу М(3), а не М(5). 

Для того чтобы присвоение производилось с учетом только что при- 
своенного значения общей переменной, необходимо осуществить ввод 
посредством не одного, а двух операторов ввода, т. е., например, 
вместо оператора 


КЕАО(2,4)КА,М(КВ) 


надо было бы применить два оператора 


КЕАР(2,4)КА 
ВЕАР(2,4)М(КВ) 


‚ Заметим, что тот же результат может быть получен посредством 
выполнения одного оператора 


ВЕАР(2,4)КА,М(КА) 


3. Выполнение оператора ПО влечет за собой определение соот- 
ветствующей управляющей переменной. Последняя остается опреде- 
ленной при выходе из области оператора, совершившемся до превы- 
шения ею своего граничного значения. 

4. Начало выполнения действия, определенного посредством эле- 
мента списка цикла, влечет за собою определение управляющей пере- 
менной в операторе ввода-вывода. 

5. Выполнение оператора АЗЗТ@М приводит к неопределенности 
переменной целого типа, указанной в этом операторе (поскольку 
значение переменной после ее употребления в операторе АЗЗ1ОМ мо- 
жет быть использовано только в операторах СО ТО по предписанию). 

6. Завершение оператора РО приводит к неопределенности управ- 
ляющей переменной этого оператора. 

7. При завершении действия, вызванного посредством элемента 
списка типа цикл, управляющая переменная становится неопреде- 
ленной. 

8. Переменные и элементы массива становятся неопределенными, 
когда связанная с ними величина того же типа становится неопреде- 
ленной. 

9. Переменные и элементы массива становятся неопределенными, 
когда связанная с ними величина, имеющая другой тип, становится 
определенной (например, две величины связаны отношением СОММОМ, 
одна из них — вещественная, другая — комплексная). 

Задание. 1. Какие действия приводят к определенности пере- 
менных и элементов массивов? 

2. Какие действия приводят к неопределенности переменных и 
элементов массивов? 
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3. Может ли быть использована в левой части в арифметическом 
операторе присвоения переменная, значение которой в момент вы- 
полнения этого оператора не определено? В логическом операторе 
присвоения? 

4. Две переменные связаны оператором СОММОМ. Одна из них 
становится определенной. Можно ли утверждать, что в этот момент 
становится определенной и другая? Тот же вопрос для случая, 
когда одна из переменных становится неопределенной. 

5. Две переменные связаны отношением эквивалентности (опера- 
тором ЕООТУАТЕМСЕ). Можно ли утверждать, что в момент, когда 
одна из них становится определенной и вторая также становится 
определенной? В каком случае такое согласование не будет иметь 
места? Тот же вопрос для случая, когда одна из переменных ста- 
новится неопределенной. 


Глава УТ 


Сводка основных правил программирования 
на языке ФОРТРАН 


1. Выполняемая программа 


Выполняемая программа является последовательностью операто- 
ров, коментариев и конечных строк, которые полностью (с учетом зна- 
чений вводимых данных) описывают вычислительный процесс. 

Выполняемая программа состоит из главной программы и любого 
количества внешних процедур или сопрограмм или тех и других. Тер- 
мин «программная единица» обозначает как главную программу, так и 
внешнюю процедуру. 


1.1. Алфавит языка ФОРТРАН 


Каждая выполняемая программа формируется из символов, груп- 
пируемых в строки и операторы. 

Для написания программной единицы на языке ФОРТРАН исполь- 
зуются следующие символы: 

Прописные буквы латинского алфавита !: 


ВВС, ЕС, ЕТ, КЕ, М,М,ОР, ОК 5, УМ, Х, У, 


Цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 
Специальные СИМВОЛЫ: 


Символ Название символа 
2 Пробел 
== Равно 
-- Плюс 
— Минус 
ж Звездочка 
/ Косая черта 
( Левая скобка 
) Правая скобка 
А Запятая 
с Десятичная точка 
$ Денежный знак 


Порядок, в котором перечислены символы, не имеет значения. 


1 В некоторых реализациях языка ФОРТРАН на отечественных ЭВМ алфавит 
языка дополняется заглавными буквами русского алфавита, отличными по начерта- 
нию от латинских. - 
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2. Типы данных 


В ФОРТРАНе допускаются следующие шесть типов данных: 


целый 

вещественный 
повышенной точности 
комплексный 
логический 

текстовый 


Каждый тип имеет собственный смысл и имеет свою машинную 
интерпретацию. 


2.1. Данные целого типа 


Данное целого типа всегда является точным представлением цело- 
го значения. Оно может быть положительным, отрицательным или 
равным нулю. Его значение должно быть целым. 


2.2. Данные вещественного типа 


Вещественное данное является приближением значения веществен- 
ного числа. Оно может быть положительным, отрицательным или рав- 
ным нулю. 


2.3. Данные повышенной точности 


Данное повышенной точности является приближением значения 
вещественного числа. Оно может быть положительным, отрицатель- 
ным или равным нулю. Степень приближения в стандарте языка не 
определяется, но должна быть выше, чем степень приближения данных 
вещественного типа. 


.2.4. Данные комплексного типа 


Данное комплексного типа является приближением значения комп- 
лексного числа. Оно представляется в форме упорядоченной пары ве- 
щественных данных. Первое из этих данных представляет веществен- 
ную, а второе — мнимую часть комплексного числа. Каждое из этой 
пары данных имеет ту же степень приближения, что и вещественное 
данное. 
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2.5. Данные логического типа 


Данное логического типа может принимать только истинностныз 
значения: истина (.ТВОЕ.) и ложь (.ЕАТЅЕ.). 


2.6. Данные текстового типа 


Текстовое данное представляется последовательностью символов. 
Эта последовательность может содержать любые символы, доступные 
устройствам ввода-вывода реальной ЭВМ. Символ пробела является 
значащим символом в данных текстового типа и только в этих данных. 


3. Константы 


Константа — это величина, которая в процессе вычисления всегда 
определена и не может быть изменена. Тип и значение константы опре- 
деляется ее записью. В языке ФОРТРАН используются шесть типов 
констант: 


целые 

вещественные 
повышенной точности 
комплексные 
логические 

текстовые 


3.1. Целая константа 


Целая константа представляется в виде непустой строки цифр, 
перед которой может стоять знак «--» или «—». Константа интерпре- 
тируется как десятичное число. 


3.2. Вещественная константа 


Основная вещественная константа состоит из целой части, десятич- 
ной точки и дробной части. Как целая, так и дробная часть являются 
строками цифр; одна из этих строк, но не обе, может быть пустой. 
Основная вещественная константа интерпретируется как приближение 
десятичного числа. Перед константой этого типа может стоять знак 
«|» или «—». 

Десятичная экспонента представляется в виде буквы Е, за которой 
следует одно- или двухразрядная целая константа, возможно со зна- 
ком. Десятичная экспонента является множителем (относящимся к 
константе, записанной непосредственно перед ним) вида: десять, воз- 


веденное в степень, указанную целым, записанным непосредственно 
после буквы Е. 
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Вещественная константа записывается в виде: основной вещест- 
венной константы; основной вещественной константы, за которой 
следует десятичная экспонента; или целой константы, за которой сле- 
дует десятичная экспонента. 


3.3. Константа повышенной точности 


Экспонента повышенной точности записывается и интерпретируе- 
тся, как и десятичная экспонента, только вместо буквы Е записыва- 
етея буква О. 

Константа повышенной точности записывается в виде основной 
вещественной константы, за которой следует экспонента повышенной 
точности, или в виде целой константы, за которой следует экспонента 
повышенной точности. 


3.4. Комплексная константа 


Комплексная константа записывается в виде упорядоченной пары 
вещественных констант, разделенных запятой и заключенных в скобки. 


3.5. Логическая константа 


Логические константы «истина» и «ложь» записываются соответст- 
венно в виде: .ТВОЕ. и .ЕАТГЗЕ.. 


3.6. Текстовая константа 


Текстовая константа представляется в. виде последовательности 
любых доступных процессору данной ЭВМ символов, которой пред- 
шествует целая положительная константа (п), равная числу этих сим- 
волов, и буква Н. Пробел является значащим символом в текстовой 
константе. Константа этого типа может быть использована только 
в операторе СА. или в операторе начальных данных. 


4. Идентификаторы 


Идентификатор — это последовательность не более чем шести сим- 
волов букв или цифр, первым символом в которой является буква. 
Идентификаторы употребляются для идентификации (обозначения) 
данных и процедур. Идентификаторы данных именуют (обозначают) 
переменные, массивы и их элементы (посредством указания индек- 
сов) или блоки данных. Идентификатор процедуры именует функцию 
или подпрограмму. | | 
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4.1. Переменная 


Переменная — это величина, обращение к значению которой осу- 
ществляется с помощью ее ‘идентификатора. Такая величина может 
быть неопределена, определена, переопределена и использована для 
ссылок к отведенному для ее значения полю памяти. 


4.2. Массив 


Массив — это упорядоченная последовательность величин, имею- 
щая одно, два или три измерения. Массив именуется (обозначается) 
идентификатором. 


4.2.1. Элемент массива 


· Элемент массива — это один из членов совокупности данных, со- 
ставляющих массив. Элемент массива именуется с помощью иденти- 
фикатора данного массива с последующим списком индексов, опре- 
деляющих его позицию в массиве. Элемент массива может быть 
неопределен и переопределен. Идентификатор массива со списком ин- 
дексов (переменная с индексами) может быть использован для ссылок 
к полю памяти, отведенному для значения данного элемента массива. 


4.2.2. Список индексов 


Список индексов представляет собой список индексных выраже- 
ний, заключенный в скобки. Индексные выражения отделяются друг 
от друга запятыми, если их несколько. Количество индексных выра- 
жений должно соответствовать описанной размерности. Заданный эле- 
мент массива определяется с помощью функции упорядочения элемен- 
тов массива путем вычисления всех индексных выражений. 


4.2.3. Индексные выражения 


В языке ФОРТРАН допустимы только следующие виды индексных 
выражений: : 

с*0--к 

с*0— 

с*о 

0-Е 

0—8 

0 

Е 
Здесь си А — целые константы, 

о — переменная целого типа. 
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4.3. Процедуры 


Процедура именуется идентификатором. В языке опрелелены сле- 
дующие типы процедур: 

1) операторная функция 

2) встроенная функция 

3) основная внешняя функция 

4) внешняя функция 

5) подпрограмма 

Операторные функции, встроенные функции, основные внешние 
функции и внешние функции называются функциями, или процедура- 
ми функций. Внешние подпрограммы называются подпрограммами, 
или процедурами подпрограмм. Процедуры выполняются в точке об- 
ращения к ним. 

Функция возвращает свое значение в точку обращения к ней (чего 
не делают подпрограммы). Формы обращения к функциям и к под- 
программам различны: обращение к функции осуществляется посред- 
ством ее указателя; обращение к подпрограмме — посредством опера- 
тора вызова подпрограмм (оператора САТ..). 


4.4. Указатель функции 


Указатель функции имеет вид: идентификатор этой функции, за ко- 
торым следует непустой список фактических параметров, заключен- 
ный в скобки. Если список содержит более одного параметра, то они 
отделяются друг от друга запятыми. 


5. Выражения 


Выражение — это правило для вычисления одного значения. В язы- 
ке ФОРТРАН допускается использование следующих типов выра- 
жений: 

1) арифметические 

2) логические 

Выражения строятся из операндов, знаков операций и скобок. 


5.1. Арифметические выражения 


Арифметические выражения строятся из арифметических операн- 
дов, знаков операций и скобок. Как выражение, так и его компоненты 
определяют значения только одного из следующих типов: целый, ве- 
щественный, повышенной точности или комплексный. В табл. 19 при- 
веден список арифметических операций. 

Операндами арифметического выражения являются: первичное 
выражение, множитель, терм, терм со знаком, простое арифметическое 
выражение и арифметическое выражение. 
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Таблица 19 
Е РЕ: ССоынышса 


Знак операции Операция 


А 


+ сложение или сохранение знака 
(нуль - элемент) 

— вычитание или замена знака на об- 
ратный (нуль — элемент) 


х умножение 
/ деление ў 
ы возведение в степень 


і 


Первичное выражение — это: 

арифметическое выражение, заключенное в скобки; 

константа; 

переменная; 

переменная с индексами; 

указатель функции. | 

Множитель — это первичное выражение или конструкция вида: 

первичное выражение ** первичное выражение 

Терм — это множитель или конструкция вида: 

терм/множитель 
или 

терм*терм 

Терм со знаком — это терм, которому предшествует знак +- или —. 

Простое арифметическое выражение — это терм или два простых 
арифметических выражения, разделенных знаком -- или —. 

Арифметическое выражение — это: 

простое арифметическое выражение; 

терм со знаком; 

одна из предыдущих форм, стоящая непосредственно перед зна- 
ком -- или —, за которым следует простое арифметическое выражение. 

Правила записи арифметических выражений: 

1) Знак умножения при записи арифметического выражения опус- 
кать нельзя. 

2) Два знака операций не могут следовать один за другим. 

3) Скобки в арифметических выражениях используются для выде- 
ления индексов элементов массивов, фактических параметров в указа- 
телях функций и указания порядка выполнения операций. 

4) Порядок вычисления выражения определяется старшинством 
операций и скобками. | 

Старшинство операций в арифметическом выражении следующее: 

вычисление значений функций; 

возведение в степень; 
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умножение и деление; 

сложение и вычитание. 

Выражения, заключенные в скобки, вычисляются в первую очередь, 
причем вычисление выражения начинается с самых внутренних скобок. 

5) Правила определения типа значения выражения приведены в 
таблицах: 6, 7 (см. стр. 29). В этих таблицах знаком «—» обозначены 
недопустимые комбинации операндов в арифметическом выражении. 


5.2. Логические выражения 


Логическое выражение образуется из операндов логического типа, 
логических операций и скобок. Операндами логического выражения 
могут быть: 

первичное логическое выражение; 

логический множитель; 

логический терм; 

логическое выражение. 

Отношения, являющиеся частным случаем логического выражения, 
состоят из двух арифметических выражений, соединенных знаками 
отношения. Каждое из входящих в отношение арифметических выра- 
жений может быть вещественным, или повышенной точности, или оба 
выражения должны быть целыми. 

Значение, определенное отношением, имеет логический тип, т. е. 
принимает значение «истина» или «ложь». 

В табл. 10 (см. стр. 34) приведены операции отношения. 

В табл. 11 (стр. 35) приведены допустимые сочетания типов опе- 
рандов в отношениях для операций .ІТ.,.ІЕ.,.ЕЎ.,.М№Е.,.ОТ.,.СЕ.. 

Если в отношении используются арифметические выражения типа 
«вещественный» и «повышенной точности», то это ‘выражение эквива- 
лентно отношению с той же операцией отношения, содержащему в 
своей правой части нуль повышенной точности, а в левой — разность 
исходных выражений, записанных в первоначальном порядке. 

Первичное логическое выражение — это: 

логическое выражение, заключенное в скобки; 

отношение; | 

логическая константа; 

логическая переменная; 

элемент массива логического типа; 

логическая функция. 

Логический множитель — это: 

первичное логическое выражение, 

операция .МОТ., за которой следует первичное логическое выра- 
жение. 

Логический терм — это: 

логический множитель, 
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конструкция вида: 5 

логический терм .ОК. логический терм. 

Логическое выражение — это: 

логический терм; 

конструкция вида: 

логическое выражение .АМО. логическое выражение. 

В табл. 9 приведены обозначения логических операций. 

Логическое выражение может принимать только логические зна- 
чения, т. е. истина (.ТВОЕ.) или ложь (.ЕАТЅЕ.). 

В табл. 20 приведены значения логических выражений для опера- 
ций .ОК., .АЮШО. и МОТ. 


Таблица 20 

Определение значения логического выражения для операций ‘Ок, .АМЮ., МОТ. 
еен. оа > ЕВЕ А ов. В А. АМР”. В | МОТ. А 

2 р 1.35 =а= Саас сЕЕрЕЕБНЕРЕНШЫЕ 
ТВОЕ. ТВОЕ. „ТВОЕ. „ТВОЕ. РАІЅЕ. 
ЛЕШЕ. .ЕАТЗЕ. ЛЕШЕ; .ЕАГЗЕ. „ВАТОЕ. 
.ЕАТЗЕ. .ТВУЕ. ЛВОЕ. .ЕАГЗЕ. ТВОЕ. 
.ЕАГ.ЗЕ. „БАГЗЕ. ЈЕЛЕ .ЕАТЗЕ. ТВОЕ. 
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6. Операторы 
6.1. Классификация операторов 


В языке ФОРТРАН имеется строго фиксированный набор операто- 
ров, из которых строится любая программная единица. Операторы 
компонуются из служебных слов и основных символов языка в соот- 
ветствии с определенными правилами. На стр. 286 приведен полный 
список форматов операторов языка ФОРТРАН. 

Операторы разделяются на выполняемые и невыполняемые. Вы- 
полняемые операторы определяют действия; невыполняемые операто- 
ры описывают характер и организацию данных, способ редактирова- 
ния данных, операторные функции и классификацию программных 
единиц. | 

Любой выполняемый оператор может быть снабжен меткой. Метка 
представляет собой не более, чем пятизначное целое без знака. Метка 
должна быть записана с первой по пятую колонку строки оператора. 
Все метки в одной и той же программной единице должны быть раз- 
ЛИЧНЫМИ. 

Невыполняемые операторы не должны быть помечены; исключение 
составляет оператор ЕОКМАТ, который обязательно должен быть 
снабжен меткой. 


258 


В языке определены три вида выполняемых операторов: 

операторы присвоения; 

операторы управления; 

операторы ввода-вывода. 

Операторы присвоения вызывают вычисление значения выражения 
и замену текущего значения переменной или элемента массива резуль- 
татом вычисления. - 

Операторы управления позволяют изменять последовательность 
выполнения операторов данной программной единицы и управлять вы- 
полнением программы. 

Операторы ввода-вывода управляют обменом данными между внут- 
ренней памятью и устройствами ввода-вывода. 

Невыполняемые операторы делятся на пять видов: 

операторы спецификаций; 

оператор начальных данных; 

оператор ЕОКМАТ; 

операторы функций; 

операторы подпрограмм. 

Операторы спецификаций используются для описания характера 
и организации переменных, массивов и процедур. 

Оператор начальных данных используется для задания начальных 
значений переменным и элементам массивов. 

Оператор ЕОКМАТ используется вместе с некоторыми видами опе- 
раторов ввода-вывода для обеспечения нужных преобразований и 
редактирования передаваемых данных. 

Операторы определения функций и подпрограмм позволяют иден- 
тифицировать и определять функции и подпрограммы. 

При записи любой программной единицы важен порядок записи 
операторов. В табл. 21 приведен порядок следования операторов в 
главной программной единице. 


Таблица 21 
Операторы спецификаций 


Операторы ЕОВМАТ операторные функции 
операторы РАТА 


выполняемые операторы 


конечная строка 


Вертикальные сплошные линии отделяют виды операторов, ко- 
торые можно располагать среди других операторов. Горизонтальные 
сплошные линии указывают границы размещения отдельных видов. 
операторов. Таким образом, операторные функции должны стоять 
после операторов спецификаций, но перед первым выполняемым опе- 
ратором. Операторы ЕОКМАТ можно записывать в любом месте главной 
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программы до конечной строки. Операторы начальных данных 
могут быть размещены в любом месте главной программы после опера- 
торов спецификаций. Кроме соблюдения порядка следования соответ- 
ствующих операторов главная программа должна удовлетворять еще 
одному требованию: в теле главной программы должны быть по мень- 
шей мере, кроме оператора 5ТОР, еще один выполняемый оператор и 
обязательно одна и только одна конечная строка. 

‚ Для функций и подпрограмм должен соблюдаться тот же порядок 
операторов, что и для главной программы, только перед оператора- 
ми, приведенными в табл. 21, должен стоять оператор внешней фун- 
кции или подпрограммы, а взамен оператора ЅТОР должен встре- 
чаться по крайней мере один оператор КЕТОКМ. 


6.2. Выполняемые операторы 


Выполняемыми операторами являются: 
1. Операторы присвоения 

2. Операторы управления 

3. Операторы ввода-вывода 


6.2.1. Операторы присвоения 


Имеется три типа операторов присвоения: 
1. Арифметический 

2. Логический 

3. Оператор присвоения метки 


6. 2. 1. 1. АРИФМЕТИЧЕСКИЙ ОПЕРАТОР ПРИСВОЕНИЯ 


Формат арифметического оператора присвоения следующий: 
а =Ь 


где а — идентификатор переменной (с индексами или без них), 
Б — арифметическое выражение. 

Действие арифметического оператора присвоения состоит в 
вычислении выражения б и присвоении его значения переменной а. 
При этом переменная а и выражение б могут быть различных 
типов. 

Правила преобразования значения выражения ё для присвоения 
его переменной а приведены в табл. 22. 
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Таблица 22 
ИИ 52 


Тип а Тип Б Правило присвоения 


——————————————_______ АС а 


целый целый без преобразования 


м—— 


целый вещественный дробная часть отбрасывается, резуль- 
тат преобразуется к целому типу 


ааа 8 


"целый повышенной точ- | дробная часть отбрасывается, резуль- 
"ности тат преобразуется к целому типу 
——————— а СЕЕ 
целый комплексный недопустимая конструкция 
д 
вещественный целый преобразуется к вещественному типу 
ДМ 
вещественный вещественный без преобразования 
ОИ 
вещественный повышенной точ- | сохраняется максимально возможное 
ности число знаков 
ААА 
вещественный комплексный недопустимая конструкция 
————————————_—__—______ 
повышенной точ- | целый | преобразуется в форму повышенной 
ности : точности 
мМ—— 
повышенной точ- | вещественный преобразуется в форму повышенной 
ности точности 


ООН ОВ 
повышенной точ- | повышенной точ- | без преобразования 
ности ности 


ЭМЭ— 2 
повышенной точ- комплексный недопустимая конструкция 
ности 


не О НЕ НЕЁ Е Е асе __ Е 6 
комплексный | целый | недопустимая конструкция 


| 


комплексный вещественный | недопустимая конструкция 
а ВОЙ 
комплексный повышенной точ- | недопустимая конструкция 

ности : 
ЕН Е А ам 
комплексный комплексный без преобразования 


ЕЕ 
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6. 2, І. 2. ЛОГИЧЕСКИЙ ОПЕРАТОР ПРИСВОЕНИЯ 


Формат логического оператора присвоения следующий: 
а= 


где а — идентификатор логической простой переменной или перемен- 
ной с индексами; 6 — логическое выражение. Выполнение этого опе- 
ратора вызывает вычисление логического выражения 6 и присвоение 
его значения переменной а. Е 


6. 2. 1. 3. ОПЕРАТОР ПРИСВОЕНИЯ МЕТКИ 


Метки операторов ФОРТРАНа не являются обычными целыми пере- 
менными. Поэтому нельзя воспользоваться оператором СО ТО М, 
присвоив предварительно целой переменной М некоторое значение. 
Чтобы указать, что значение, присваиваемое переменной, является 
меткой оператора, используется оператор А551СМ ТО, который имеет 
формат: 


АЅ5ІАМ а ТО т 


где а — метка, 
т — идентификатор целой переменной. 

После выполнения данного оператора любой оператор СО ТО по 
предписанию, использующий идентификатор т, вызовет передачу 
управления оператору с меткой а (если указанная переменная м к это- 
му моменту не будет переопределена). Метка а должна относится к вы- 
полняемому оператору, находящемуся в той же программной единице, 
что и оператор А$51СМ№. . 

После использования целой переменной т в операторе А$ЗТ@М 
эта переменная становится доступной только в операторах СО ТО 
по предписанию до тех пор, пока она не будет переопределена опе- 
ратором, отличным от оператора присвоения метки (оператором ввода, 
арифметическим оператором присвоения, оператором РО или посред- 
ством обращения к некоторой процедуре). 


6.2.2. Операторы управления 


Имеется восемь видов операторов управления: 
Операторы СО ТО 

Арифметический оператор 15 

Логический оператор ІЕ 

Оператор САШ. 

Оператор КЕТОКМ 

Оператор СОМТІМОЕ 

Операторы управления программой 
Оператор РО. 


оно 
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Метки операторов, используемые операторами управления, являют- 
ся метками выполняемых операторов, находящихся в той же самой про- 
граммной единице, в которой находится данный оператор управления. 


6.2.2.1. ОПЕРАТОРЫ СО ТО 


Имеется три разновидности операторов СО ТО: 
1. Безусловный оператор СО ТО 

2. Оператор СО ТО по предписанию 

3. Оператор СО ТО по вычислению. · 
Безусловный оператор СО ТО 
Безусловный опзратор СО ТО имеет формат: 


СО ТО п 


Здесь и — метка. Оператор СО ТО п передает управление оператору 
с меткой п. 

Оператор СО ТО по предписанию 

Оператор СО ТО по предписанию имеет формат: 


ОО ОРЕ Г) 


Здесь № — целая переменная, а и; — метки операторов (/ < ј < 0). 
К моменту выполнения подобного оператора значение / должно быть 
определено посредством выполнения некоторого оператора А$8І8М, 
и это значение должно совпадать с одной из меток, заключенных в 
скобки. Оператор передает управление оператору с этой меткой. 
Оператор СО ТО по вычислению 
Оператор СО ТО по вычислению имеет формат: 


80 ТО (п, п,, ..., п), В 


Здесь п; — метки (1 < ј < й, 

К — целая переменная. 
Если текущее значение # равно ] в момент выполнения этого оператора, 
то оператор СО ТО по вычислению передает управление оператору 
с меткой пу. | 


6.2.2.2. АРИФМЕТИЧЕСКИЙ ОПЕРАТОР 1Е 


Арифметический оператор ІЕ имеет следующий формат: 
ГЕ (а) п,, п, та 


Здесь а — арифметическое выражение (целое, вещественное или по- 
вышенной точности); 

п, По, пз — метки. 

Действие арифметического оператора ІЕ состоит в следующем: 
если значение арифметического выражения внутри скобок отрица- 
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тельно, то управление передается оператору с меткой и;; если это вы- 
ражение равно нулю — оператору с меткой п»; если же это выражение 
положительно, то управление передается оператору с меткой из. 


6.2.2.3. ЛОГИЧЕСКИЙ ОПЕРАТОР 1Е 


Логический оператор ІЕ имеет следующий формат: 
12 (1$ 


Здесь 1 — логическое выражение; 
$ — любой выполняемый оператор языка ФОРТРАН за исклю- 
чением оператора РО и логического оператора ТЕ. 
Действие этого оператора состоит в следующем: если значение / 
есть .ТВОЕ., то выполнение логического оператора Е сводится к 
выполнению оператора $. Если же выражение [ есть .РАГЗЕ., то внут- 
ренний оператор $ пропускается и управление передается следующе- 
му за ним в записи программы оператору. В последнем случае опера- 
тор ІЕ эквивалентен пустому оператору. 


6.2.2.4. ОПЕРАТОР САМ, 


Оператор САШ. имеет формат: 
(САЛО (о сз @) 


или 
САЦ, 5 


Здесь $ — идентификатор подпрограммы; 

°а,, а, ... а, — фактические параметры. 

Выполнение оператора САТ.Т, заключается в обращении к упомя- 
нутой в нем подпрограмме $. Возврат с последней завершает выпол- 
нение оператора СА. 


6.2.2.5. ОПЕРАТОР ВЕТОВМ 


Оператор ВЕТОКМ имеет вид: 
ВЕТОКМ 


Оператор ВЕТОКМ№ может появляться только в процедурах. 

Выполнение этого оператора вызывает возврат управления той про- 
граммной единице, из которой было произведено обращение к данной. 
‚ Во время возвращения управления значение внешней функции, 
к которой было произведено обращение, становится доступным. 


6.2.2.6. ОПЕРАТОР. СОМТ! МОЕ 


Оператор СОМТІМОЕ имеет формат: 
| СОМТМОЕ 


Выполнение этого оператора вызывает продолжение нормально 
выполняемой последовательности операторов. Оператор может быть 
использован в качестве конечного в области РО. 


6.2.2.7. ОПЕРАТОРЫ УПРАВЛЕНИЯ ПРОГРАММОЙ 


Имеется две разновидности операторов управления программой: 
1. Оператор ЗТОР 
2. Оператор РАЏОЅЕ 
Оператор ЗТОР 
Оператор ЅТОР имеет один из форматов: 
ЗТОР п 


ИЛИ 
ЗТОР 
Здесь и — строка восьмеричных цифр (от одной до пяти). 
Выполнение этого оператора вызывает окончание выполнения дан- 
ной программы. В случае первого формата строка п становится до- 
ступной, т. е. выводится на одно из внешних устройств. 
Оператор РАТЕ 
Оператор РАОЅЕ имеет один из форматов: 
РАОЅЕ п 


или 
РАОЅЕ 


Здесь п — строка восьмеричных цифр (от одной до пяти). 

Оператор РАОЅЕ вызывает прерывание в выполнении программы. 
Выполнение может быть возобновлено. В момент прерывания програм- 
мы строка и восьмеричных цифр, указанная в операторе, становится 
доступной. Решение о возобновлении выполнения не находится под 
управлением выполняемой программы, но если выполнение возоб- 
новляется без изменения состояния процессора, то завершение вы- 
полнения оператора РАОЅЕ вызывает продолжение нормально вы- 
полняемой последовательности операторов. 


6.2.2.8. ОПЕРАТОР ро 


Оператор РО имеет один из форматов: 
ВОт, т. п 
ИЛИ 
рО п і=т,, т, 
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Здесь п — метка некоторого выполняемого оператора. Последний, 
называемый конечным оператором цикла, должен в записи программы 
следовать после РО и находиться с ним в одной и той же программной 
единице. Конечный оператор не может быть оператором СО ТО, ариф- 
метическим оператором 1Е, оператором КЕТИОКМ, 5ТОР, РАОЅЕ или 
ПО, а также логическим ІЕ, содержащим какой-либо из перечисленных 
здесь операторов; 

і — целая переменная, называемая управляющей переменной; 

т, — начальный параметр переменной #; 

т, — конечный параметр переменной #; 

т; — параметр приращения. 
ту, т, т, могут быть либо целыми константами, либо целыми пере- 
менными. 

Если используется второй формат оператора РО, в котором пара- 
метр приращения явно не задан, то значение параметра приращения 
считается равным единице. К моменту выполнения оператора РО зна- 
чения т., т», тз должны быть определены, положительны и значение 
ту должно быть меньше или равно ть. 

Участок программы, начиная с оператора, непосредственно следу- 
ющего за ОО, и заканчивая оператором с меткой п, называется об- 
ластью оператора РО. | 

Выполнение оператора РО сводится к выполнению последователь- 
ности операторов, составляющих его область, при значениях управ- 
ляюшей переменной і, равных т, И; -- Тз, Т: + 2т. ит. д., до тех 
пор, пока управление не будет передано посредством какого-либо опе- 
ратора перехода оператору, находящемуся вне области данного опе- 
ратора РО, или пока значение і не станет больше т.. 

Язык допускает вложенные циклы. При этом, если внутри одного 
оператора РО содержится другой оператор РО, то область внутрен- 
него РО должна принадлежать области внешнего РО. 

Допускается возврат внутрь области самого внутреннего оператора 
РО после выхода из нее. В этом случае говорят о расширенной обла- 
сти оператора ОО. Ни в каком другом случае передача управления 
извне области операторов РО во внутрь не допустима. 

При выполнении области операторов РО (в том числе и расширен- 
ной области) не допускается изменение значений 1, /11, т», т», хотя 
последние при этом могут быть использованы (например, в качестве 
индексов). 


6.2.3. Операторы ввода — вывода 


6.2.3.1. СПИСКИ ВВОДА-ВЫВОДА 


Список ввода задает идентификаторы переменных и элементов мас- 
сива, которым присваиваются значения при вводе. Список вывода 
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задает обращения к переменным и элементам массива, значения ко- 
торых передаются во внешнюю среду. Списки ввода и вывода имеют 
одинаковую форму. 

Список — это: 

простой список, 

простой список, заключенный в скобки, 

список типа цикл, 

два списка, разделенные запятой. 

Списки формируются следующим образом. Простой список — это: 

идентификатор переменной, ў 

идентификатор элемента массива, 

идентификатор массива, 

два простых списка, разделенных запятой. 

Список типа цикл — это список, за которым следует запятая и 
спецификация цикла. Вся эта структура заключается в скобки. 

Спецификация цикла имеет один из следующих форматов: 


і = ту, ть, Ту 
ИЛИ 
ИА о 


Элементы і, т, т, и т. в спецификации цикла имеют то же значе- 
ние, что и в операторе РО. Область спецификации цикла является 
элементом в списке типа цикл, и в списках ввода 1, т, т., тз могут 
появляться в этой области только в индексах. 

Элементы списка определяются в порядке их следования слева на- 
право. Элементы списка в списке типа цикл определяются для всех 
повторений цикла. 


6.2.3.2. ОПЕРАТОРЫ ВВОДА-ВЫВОДА 


Имеется два типа операторов ввода-вывода: 

1. Операторы, непосредственно осуществляющие обмен информа- 
цией с внешними устройствами, или операторы обмена. 

2. Вспомогательные операторы ввода-вывода. 

К первому типу относятся операторы КЕАР и \ЕТЕ, осуществ- 
ляющие передачу записей последовательных файлов, ввод и ВЫВОД 
данных с которых выполняется последовательно запись за записью, 
во внешнюю память и из внешней памяти соответственно. Под записью 
понимается логически завершенная группа данных. 

Ко второму типу относятся операторы ВАСК$РАСЕ и РЕМІМ№Р, 
которые обеспечивают установку в определенное положение внешних 
файлов, и оператор ЕМРЕТГЕ, с помощью которого оформляется гра- 
ница внешних файлов. 

Обозначим в описаниях отдельных операторов ввода-вывода через и 
и } устройства ввода—вывода и спецификации формата, соответственно; 
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и может быть или целой константой, или целой переменной, обра- 
щение к значению которой определяет устройство; / — обозначает 
метку оператора ЕОКМАТ или идентификатор массива. 


6.2.3.2.1. Операторы обмена 


Каждый из операторов ВЕАР и МКЕІТЕ может содержать список 
идентификаторов простых переменных, переменных с индексами и 
массивов. Элементам списка присваиваются значения при вводе в опе- 
ративную память; при выводе их значения передаются из оператив- 
ной памяти на внешнее устройство. 

Для внешних носителей запись — это количество информации, 
которое связано с единицей внешнего носителя (перфокарта, зона маг- 
нитной ленты, строка на устройстве печати). 

Записи могут быть форматными и бесформатными. Форматная за- 
пись представляет собой строку символов, допустимых в текстовых 
константах. Передача таких записей требует обращения к специфика- 
ции формата для определения расположения и способа передачи этих 
записей. Количество записей, передаваемое при выполнении опера- 
торов ввода и вывода по формату, определяется списком переменных 
в операторах ВЕА” и \КТЕ и спецификацией формата, к которой 
обращается данный оператор обмена. 

Бесформатная запись представляет собой строку значений. 

При выполнении форматного или бесформатного оператора ВЕАР”Р 
необходимые записи на внешнем носителе должны быть соответствен- 

но форматными или бесформатными. 
’. Оператор КЕАО с форматом 
Оператор ВЕАЛ с форматом имеет один из следующих форматов: 


ВЕАГ(и, РЁ 
или 
ВЕАО(и, ђ 


Здесь Е — список. | 

Выполнение этого оператора вызывает считывание в оперативную 
память очередных записей с носителя, определяемого значением и. 
Информация считывается и преобразуется в соответствии со специфи- 
кацией формата, задаваемого с помощью Г. Вводимые значения при- 
сваиваются элементам списка № (см. 6.2.3.1). Вторая разновидность 
оператора используется для переопределения информации, заданной 
в операторе ЕОВМАТ с меткой / форматом Н (см. 6.3.1.10.6). 

Оператор УВТТЕ с форматом т 

Оператор \ЕТТЕ с форматом имеет один из следующих форматов 


\ЕТТЕ (и, А 


ИЛИ 


МЕТТЕ(и, р) 


Здесь ё — список. 

При выполнении этого оператора на носителе, определяемом зна- 
чением и, формируется очередная запись. Список Ё определяет после- 
довательность выводимых значений. Эти значения преобразуются и 
размещаются на внешнем носителе в соответствии со спецификацией 
формата, задаваемого с помощью {. При отсутствии в операторе спис- 
ка № оператор ЕОКМАТ с меткой ў должен содержать только Н и Х 
форматы. 

Бесформатный оператор ВЕАР 

Бесформатный оператор КЕДР имеет один из следующих форматов 


ВЕАР(и) 
или 
КЕАР(и) 


Здесь К — список. 

При выполнении этого оператора поле каждой переменной из спис- 
ка Е заполняется символами, составляющими очередную запись на 
носителе, определяемом значением и. Так как формат не задается, 
то поле переменной заполняется информацией, составляющей всю 
запись (т. е. информацией, размещенной на всей перфокарте или зоне 
магнитной" ленты). 

При выполнении оператора чтения, заданного последним форматом 
(КЕАР (и)), считываемая информация использоваться не может, 
так как отсутствует список переменных, которым должны быть при- 
своены значения. Эта разновидность оператора используется для про- 
пуска записей на носителе, определяемом значением и. 

Бесформатный оператор \МКВТТЕ 

Бесформатный оператор МРІТЕ имеет следующий формат: 


МУКТТЕ(и)^ 


Здесь Ё — список. 

При выполнении этого оператора на носителе, определяемом. зна- 
чением и, формируется очередная запись, являющаяся последователь- 
ностью значений, задаваемых списком А. Выводимая информация по- 
ступает на внешний носитель без преобразования. 


6.2.3.2.2. Вспомогательные операторы ввода-вывода 


Имеется три разновидности вспомогательных операторов ввода- 
вывода: 5 Е ; 

1. Оператор ВЕМІМРЮ 

2. Оператор ВАСКЅРАСЕ 


3. Оператор ЕМРЕП-Е 
Оператор КЕМТМО 
Оператор КЕМІМР имеет следующий формат: 


ВЕМИМО и 


Выполнение этого оператора вызывает установку носителя с но- 
мером и в начальное положение, т. е. к началу первой информацион- 
ной зоны первого файла. 

Оператор ВАСК$РАСЕ 

Оператор ВАСКЅРАСЕ имеет следующий формат: 


ВАСК$РАСЕ и 


При выполнении этого оператора осуществляется шаг назад на 
одну запись на носителе, обозначенном номером и. Если носитель, 
определяемый значением и, находится в начальном положении, то вы- 
полнение этого оператора не производит никаких действий. 

Оператор ЕМОЕТЕЕ 

Оператор ЕМРЕШЕ имеет следующий формат: 

ЕМОЕШЕ а 

Выполнение этого оператора вызывает запись признака конца фай- 
ла на носителе, определяемом значением и. Признаком конца файла 
является особая запись, отмечающая границу последовательного фай- 
ла. Действие неопределено, если признак конца файла встречается 
во время выполнения оператора КЕАР”. 


6.2.3.8. ВЫВОД ФОРМАТНЫХ ЗАПИСЕЙ НА ПЕЧАТЬ 


При подготовке форматных записей для вывода на печать следует 
иметь в виду, что первый символ такой записи не печатается; он слу- 
жит для управления печатью, осуществляемого согласно правил, 
приведенных в табл. 14 (см. стр. 66). 


6.3. Невыполняемые операторы 


Имеется пять видов невыполняемых операторов: 
1. Операторы спецификаций 

2. Оператор начальных данных 

3. Оператор ЕОКМАТ 

4. Операторы определения функций 

5. Операторы подпрограмм 


6.3.1. Операторы спецификаций 


"Имеется пять типов операторов спецификаций: 
1. Оператор РІМЕМ№ЅІОМ 
_2. Оператор СОММОМ 


270 


З. Оператор ЕО МУАТЕМСЕ 
4. Оператор ЕХТЕВМАТ. 
5. Операторы спецификации типа 


6.3.1.1. ОПИСАТЕЛЬ МАССИВА 


Описатель массива специфицирует массив, используемый в данной 
программной единице. Описатель массива состоит из идентификатора 
этого массива и списка размерностей, определяющих размерность дан- 
ного массива (одна, две или три) и размеры массива по каждому изме- 
рению. | 

Описатель массива имеет следующий формат: 


9 (1) 


Здесь о — идентификатор массива; 

і — список индексов описателя, состоящий из одного, двух или 
трех индексных выражений, представляющих собой поло- 
жительные константы или простые переменные целого типа. 
Индексы в списке индексов отделяются друг от друга за- 
пятыми. Если список { не содержит переменных, он назы- 
вается постоянным списком индексов описателя. 


6.3.1.2. ФУНКЦИЯ УПОРЯДОЧЕНИЯ ЭЛЕМЕНТОВ МАССИВА 
И ЗНАЧЕНИЕ ПРИВЕДЕННОГО ИНДЕКСА 


В табл. 16 (см. стр. 103) приведены правила вычисления значения 
приведенного индекса, определяющего данный элемент массива, и мак- 
симальное значение этого индекса. 

Значение функции упорядочения элементов массива получается 
путем прибавления единицы к содержимому колонки «Значение ‘при- 
веденного индекса». 


6.3.1.3. РЕГУЛИРУЕМЫЕ РАЗМЕРЫ 


Если какой-либо из размеров в описателе массива задан иденти- 

фикатором, то этот массив называется массивом с регулируемыми 
размерами, а соответствующие идентификаторы — идентификаторами, 
регулирующими размеры. 
‚ _ Массивы с регулируемыми размерами допускаются только во внеш- 
них процедурах. Список формальных параметров таких процедур 
должен содержать идентификатор массива и идентификаторы целых 
переменных, обозначающих регулируемые размеры. Значения факти- 
ческих параметров, задающих размеры массива, должны быть опре- 
делены до обращения к процедуре и немогут становиться неопределен- 
ными или переопределяться во время выполнения процедуры, 
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6.3.1.4. ОПЕРАТОР Р1МЕМ$З1ОМ , 


Оператор ОІМЕМЅІОМ имеет следующий формат: 
О МЕМЗОМ о,, 9», ..., 0, 


Здесь каждое и; — описатель массива (1 < і «< и). 

Оператор ОІМЕМЅІОМ используется для указания максимальных 
размеров массивов, с которыми работает данная программная еди- 
ница. 


6.3.1.5. ОПЕРАТОР СОММОМ 


Оператор СОММОМ имеет следующий формат: 
СОММОМ/Х; /0;/ ... /Х а 


Здесь каждое а; — непустой список идентификаторов переменных, 
идентификаторов массивов или описателей мас- 
сивов с постоянными границами индексов, 

каждое х; — идентификатор, являющийся наименованием об- 
шего блока данных, или пусто (если х; — пусто, 
первые две косые черты необязательны). 

В любом операторе СОММОМ переменные, перечисленные между 
двумя наименованиями общих блоков х, и хьы или между наимено- 
ванием блока и концом оператора, объявляются входящими в блок хь. 
Все элементы, следующие за отсутствующими наименованиями бло- 
ков, объявляются входящими в один непомеченный общий блок. 

Оператор СОММОМ используется для совместного использования 
одних и тех же единиц памяти переменными, описанными в разных 
программных единицах. , 

Размеры помеченных общих блоков с одним и тем же наименова- 
нием в различных программных единицах выполняемой программы , 
должны быть одинаковыми. 

Размеры непомеченного общего блока в различных программных 
единицах выполняемой программы могут быть разными, однако раз- 
мер непомеченного общего блока в процедурах не должен превышать 
‘размера непомеченного общего блока в главной программе. 

Указание формальных параметров в списке оператора СОММОМ 
не допускается. 


6.3.1.6. ОПЕРАТОР ЕСТЛУАЕЕМСЕ 


Оператор Е9ОІУАГЕМСЕ имеет следующий формат: 
ЕОТЛУАГЕМСЕ (№), (8), ..., (®,) 


Здесь каждое №, — список, элементом которого может быть идентифи- 
катор простой переменной (не формальный параметр) или переменной 
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с индексами, заданными константами. Количество элементов в таких 
списках должно быть не менее 2. Число индексных выражений долж- 
но соответствовать размерности, заданной в описателе соответствую- 
щего массива, или равняться единице (в последнем случае размер мас- 
сива определяется функцией упорядочения элементов массива). 

Оператор Е МУАГЕМСЕ предназначен для разрешения совмест- 
ного использования одного и того же поля памяти нескольким пере- 
менным в данной программной единице. | 

Размер общего блока в программной единице — это сумма памя- 
ти, необходимой для элементов, включенных в списки операторов 
СОММОМ и ЕООТУАГЕМСЕ. 


6.3.1.7. ОПЕРАТОР ЕХТЕВМАІ. 


Оператор ЕХТЕКМАІ. имеет формат: 
ВХТВЕМАТ оО ыы, ОЕ 


Здесь и; — идентификатор внешней процедуры (1 < і < п). 

Появление идентификатора в операторе ЕХТЕВМАГ. говорит о 
том, что данный идентификатор является идентификатором некоторой 
внешней процедуры, используемым в данной программной единице 
в качестве фактического параметра другой внешней процедуры. 


6.3.1.8. ОПЕРАТОРЫ ТИПА 


Оператор типа имеет следующий формат: 
А 


Здесь Ё — это один из спецификаторов типа: Е 
ІМТЕСЕВ, КЕАІ, РООВГЕ РРЕСІЅІОМ, СОМРЕЕХ, І.ОСІСАІ. 
о; — идентификатор переменной, или 
идентификатор массива, или 
. идентификатор функции или 
описатель массива. 
Оператор типа используется для явного объявления типа пере- 
менной, массива или функции; он может быть использован также для 
задания размеров массивов посредством их описателей. 


'6.3.1.9. ОПЕРАТОР НАЧАЛЬНЫХ ДАННЫХ 


Оператор начальных данных имеет следующий формат: 
РАТА #,/4,/, 2/7, ...., ИА, 


Здесь каждое №, — список идентификаторов переменных или элемен- 
`тов массивов; о 
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каждое 4, — список констант, возможно со знаками, любой из 
которых может предшествовать повторитель вида 
2%, 
где ј — целая константа без знака. 
Элементы списков разделяются запятыми. Указание формальных 
параметров в списках №, не допустимо. . 
Число элементов в каждом из списков Ё, и й, (с учетом повторите- 
лей) должно быть одинаковым. 
Оператор РАТА используется для задания начальных значений, 
указанных в списках 4,, соответствующим переменным из списков Е,. 


6.3.1.10. ОПЕРАТОР ҒОКМАТ 


Оператор ЕОВМАТ используется в связи с вводом-выводом фо- 
рматных записей для указания количества позиций, занимаемых дан- 
ными, и способа редактирования при переходе от внутреннего пред- 
ставления информации к внешним строкам (записям) и обратно. 

Оператор ЕОКМАТ имеет следующий формат: 

РОВ МАТ (совокупность описателей полей ввода-вывода) 

Совокупность описателей полей представляет собой последова- 
тельность отдельных описателей поля, разделенных запятыми или 
одной или несколькими наклонными черточками «/». 

Для указания способа редактирования используются некоторые 
буквы алфавита, называемые литерами формата (или форматами). 


6.3.1.10.1. Описатели полей 


В стандарте языка ФОРТРАН определены девять описателей по- 
лей, имеющие следующие форматы: 
572.4 
57Еф.4 
570.4 
57Юо.а 
тї 
Ню 
тАш 
НИ. й.... Р, 
их 
Здесь 1. Буквы Е, Е, С, О, 1, Г, А, Н, Х — литеры формата. 
2. и — ненулевая целая константа без знака, определяющая 
ширину поля во внешнем представлении. 
3. 4 — определяет число цифр в дробной части внешнего пред- 
ставления (исключая формат С); 
4. г — повторитель, задающий число повторений следующего 
за ним описателя поля (может отсутствовать); 
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5. $ — масштабный множитель (может отсутствовать); 
6. каждое А, — один из символов, допустимых в данном про- 
цессоре. 
Задание ширины поля и обязательно для всех форматов. Для описа- 
телей вида 0.2 указание 4 обязательно, даже если оно равно нулю. 
ш должно быть большим или равным й. 
Разделители полей 
„Один оператор ЕОКМАТ описывает одну или несколько единиц 

ввода-вывода (записей). Разделитель «/» или закрывающая скобка 
в конце оператора указывает на переход к новой единице ввода-вывода 
(перфокарте, строке на бумажной ленте и др.). 


6.3.1.10.2. Спецификации повторения 


Повторение описателей полей (кроме оН и шХ) задается посредст- 
вом повторителя г. 

Повторение групп описателей полей может быть задано путем за- 
ключения их в круглые скобки и, возможно, написанием перед левой 
скобкой коэффициента повторения. Если коэффициент повторения 
группы не задан, то он полагается равным единице. 


6.3.1.10.3. Масштабный множитель 


_ Указатель масштабного множителя $ определен для использования 
с форматами Е, Е, С ир и имеет формат: 


ПР 


Здесь п — целая константа, называемая масштабным множителем. 
Общее правило действия масштабного множителя: число во внеш- 
нем представлении равно числу во внутреннем представлении, умно- 


женному на 10". Отсюда следует, что вводимые значения будут разде- 


лены на 10", а выводимые значения будут умножаться на 10”. Отсутст- 
вие масштабного множителя соответствует и = 0. С момента установле- 
ния масштабный множитель применяется ко всем используемым впо- 
следствии форматам Е, Е, б, "” до тех пор, пока не будет установлен 
другой масштабный множитель. 


6.3.1.10.4. Числовые преобразования 


Форматы І, Е, Е, С ир используются для спецификации при вводе- 
выводе данных типов целого, вещественного, комплексного и повышен- 
ной точности. 

1. Для всех числовых преобразований при вводе пробелы вос- 
принимаются как нули. Знак плюс может быть опущен. Поле, состо- 
ящее из всех пробелов, рассматривается как нулевое. 
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-2. Для форматов Е, Е, С и р при вводе десятичная точка, стоя- 
_ щая в поле ввода, отменяет неявное ыы места точки, задавае- 
мое с помощью 4. 

3. При всех способах редактирования чисел при выводе результат 
редактирования выравнивается вправо и, если число выводимых сим- 
волов окажется меньше ширины поля, оно слева заполняется пробе- 
лами. 

4. При выводе перед отрицательным числом всегда должен стоять 
знак минус; перед положительным знак может быть опущен. 

5. Число символов при выводе не должно превышать ширины поля 
вывода. 

Преобразование данных целого типа. Преобразование данных це- 
лого типа при вводе-выводе осуществляется с помощью формата І. 

Общий вид формата Г: 


Іо 


Формат І при выводе означает перевод целого числа из вещественного 
представления в десятичное число, которое и выводится при выводе 
и, наоборот, при вводе. Общее число позиций, занимаемых числом на 
внешнем носителе, включая знак и пробелы слева, равно шо. Исполь- 
зование десятичной точки в формате І не допускается. ' 

Преобразование данных вещественного типа. Для преобразования 
данных вещественного типа при вводе-выводе используются форматы 
РЕ. 

ФорматЕ 

Общий вид формата Е: 


Е.а 


Формат Е означает, что вещественное число из внутреннего пред- 
ставления будет преобразовано в десятичное число без порядка при 
выводе и, наоборот, десятичное число без порядка будет преобразовано 
во внутреннее представление при вводе данных. Полное число пози- 
ций, занимаемых полем на внешнем носителе, включая знак, десятич- 
ную точку и все пробелы, равно ш. Если десятичная точка при вводе 
данных не отперфорирована, то количество позиций, находящихся 
после десятичной точки, считается равным 4. При выводе десятичная 
точка будет расположена так, что после нее будет сохранено 4 пози- 
ций. 

Формат Е 

Общий вид формата Е: 


Е.а 


Формат Е определяет перевод числа из внутреннего представления в 
число с десятичным порядком при выводе и обратный перевод числа 
с десятичным порядком во внутреннее представление при вводе. 
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Основная форма внешнего поля при вводе состоит из знака, кото- 
рый может быть опущен, за которыми следует строка цифр, содержа- 
щая, возможно, десятичную точку; за основной формой следует по- 
рядок в одной из следующих форм: 

1. Константа целого типа со знаком. 

2. Буква Е, за которой следует целая константа. 

3. Буква Е, за которой следует целая константа со знаком. 

Внешнее поле при выводе содержит пробелы, если необходимо, 
за которыми следует знак минус (если значение отрицательное), или, 
возможно, знак плюс. Далее следует строка цифр, содержащая деся- 
тичную точку. Общее количество позиций поля равно 0, причем сюда 
включаются позиции для знака, десятичной точки, порядка и пробелов. 
Количество значащих цифр мантиссы после десятичной точки равно 4 
(позиции, занимаемые порядком, не учитываются). 

Преобразование данных типа повышенной точности. Для преобра- 
зования данных типа повышенной точности при вводе-выводе исполь- 
зуется формат р. 

Общий вид формата р: 

Ош.а 


Формат Р означает, что число, имеющее внутреннее представление 
как данное повышенной точности, будет преобразовано в десятичное 
число с порядком повышенной точности или наоборот. 

Основная форма внешнего поля при вводе такая же, как для преоб- 
разования данных вещественного типа. 

Внешнее поле для вывода такое же, как для формата Е, только в 
порядке буква Е заменяется буквой р. 

Преобразование данных комплексного типа. Так как комплексное 
данное состоит из пары данных вещественного типа, его преобразова- 
ние определяется двумя последовательно интерпретируемыми описа- 
телями вещественных преобразований, первый из которых использует- 
ся для преобразования действительной части, второй — мнимой. 


6.3.1.10.5. Преобразование данных логического типа 


Для преобразования данных логического типа при вводе-выводе 
используется формат 1. 
Общий вид формата 1: 
Го 


Формат Г. означает, что внешнее поле занимает ш позиций как стро- 
ка информации. : 

Внешнее поле для ввода должно состоять из пробелов (необяза- 
тельно), за которыми следует один из символов Т или Е. За этими сим- 
волами могут располагаться буквы, дополняющие до слов ТРОЕ и 
ҒАТ5Е соответственно. ВЕ" 
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6.3.1.10.6. Описатель поля для данных 
текстового типа 


Текстовую информацию можно передавать с помощью двух описа- 
телей полей: ШН и Ао. 

Формат Н вызывает ввод или вывод текстовой информации, 
содержащей 0 символов, расположенных непосредственно за описа- 
телем иН в самом формате. 

Формат А вызывает ввод или вывод & текстовых символов, 
которые задаются элементом списка. 


6.3.1.10.7. Описатель поля, заполненного пробелами 


Описатель поля пробелов имеет вид 0Х. 
При вводе формат Х вызывает пропуск ш символов вводимой 
‘записи. При выводе — во внешнюю запись вставляется & пробелов. 


6.3.1.10.8. Описание формата в массивах 


Любой оператор форматного ввода-вывода может вместо метки 
оператора ЕОКМАТ содержать идентификатор массива. Если к мас- 
сиву обращаются таким образом, то в первой записи этого массива 
должна содержаться спецификация формата, заданная так же, как ив 
операторе ЕОКМАТ. 

На информацию, содержащуюся в массиве после правой скобки 
спецификации формата, никаких ограничений не накладывается. 

Формат Н не может быть частью спецификации формата в массиве. 

Спецификация формата может размещаться в массиве с помощью 
оператора КЕАР” с форматом А или с помощью оператора начальных 
данных. 


6.3.1.11. ВЗАИМОДЕЙСТВИЕ ФОРМАТНОГО УПРАВЛЕНИЯ СО СПИСКОМ ВВОДА- 
ВЫВОДА 


`Начало выполнения оператора ВЕАР или МВІТЕ с форматом 
возбуждает форматное управление. Каждое действие форматного 
управления зависит от информации, задаваемой совместно очередным 
элементом списка ввода-вывода, если таковой имеется, и очередным 
описателем поля из спецификации формата. Если задан список ввода- 
вывода, то в списке форматов должен быть хотя бы один формат, от- 
личный от ИХ и ИН. 

Если выполняется оператор КЕАР с форматом, то сначала счи- 
тывается одна запись, а последующие записи читаются только в том 
случае, если этого требует формат. 

При выполнении оператора МВІТЕ с форматным управлением 
вывод записи происходит каждый раз, когда спецификация формата 
задает начало новой записи. 
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7. Процедуры и сопрограммы данных 


В языке ФОРТРАН имеется четыре вида процедур: 

1. Операторные функции 

2. Встроенные функции 

3. Внешние функции 

4. Подпрограммы 

Первые три вида называются функциями, или процедурами функ- 
ций. Процедуры последнего вида называются подпрограммами или 
процедурами подпрограмм. Внешние функции и подпрограммы назы- 
ваются внешними процедурами. 


7.1. Операторные функции 


Операторная функция имеет следующий формат: 


а (В) = 6 
Здесь о — идентификатор функции, 
В — список формальных параметров; 
б — выражение. 
Описанная конструкция является определением операторной функ- 
ции и относится к невыполняемым операторам. Эти операторы должны 
быть расположены в программе после операторов спецификации перед 
первым выполняемым оператором. 
Кроме формальных параметров, выражение $ может содержать 
только: 
1) нетекстовые константы, 
2) идентификаторы переменных (в томчисле переменных синдексами), 
З) указатели встроенных функций, 
4) указатели ранее описанных операторных функций, 
5) указатели внешних функций. 
Обращение к операторной функции допустимо лишь в данной про- 
граммной единице и осуществляется посредством ее указателя как 
первичного выражения в арифметическом или логическом выражениях. 


7.2. Встроенные функции 


Указатель встроенной функции имеет следующий формат: 


а) 
Здесь / — идентификатор функции; 
а — список фактических параметров. 
Идентификаторы встроенных функций заранее определены про- 
цессором и имеют специальный смысл и тип. 
Обращение к встроенной функции производится путем использо- 
вания ее указателя в качестве первичного выражения в арифметиче- 
ских или логических выражениях. ыы 
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Список встроенных функций, предусмотренных в стандарте языка 
ФОРТРАН, приведен в таблице 23. 


Таблица 23 
Встроенные функции 
Кол-во и не 
Встроенная функция Определение РЕ ааа 
тов аргумента функции 
Абсолютное зна- [41 1 ТАВЅ веществ. веществ. 
чение 1 | ЈАВѕЅ целое целое 
1 | РАВ$ ПовЫыШ. Т. повыш. т. 
Усечение Наибольшее це- 1 | АМТ веществ. веществ. 
лое «<|а|, взя- 1 ІМТ веществ. целое 
тое со знаком 1 | ШІМТ повыш. т. целое 
Остаток * а (той аз) 9 | АМОР | веществ. веществ. 
2 | МОБ целое целое 
Выборка наиболь- | тах (ал, а...) | >2 | МАХО | целое целое 
шего значения >2 | АМАХО | целое веществ. 
>2 | МАХІ веществ. целое 
>2 | АМАХ! | веществ. веществ. 
>2 | ОМАХ! | повыш. повыш. : 
Выборка наи- | тт (а1, а»...) >2 | АМІМО | целое веществ. 
меньшего значе- >2 | АМІМІ | веществ. веществ. 
ния >2 | ММО целое целое 
>2 | ММ веществ. целое 
>2 | РМІМІ повыш. повыш. 
Преобразование 1 | ЕГОАТ | целое веществ. 
из целой формы 
в вещественную 
Преобразование 1 ТЕХ | веществ. целое 
из вещественной 
формы в целую 
Изменение знака | |а,| взятое со 2 | “ам веществ. веществ. 
знаком а, 2 | 1516М№М | целое целое 
2 | 2$@М | повыш. т. повыш. т. 
Положительная а— тт (01, а) 2 1 ПМ веществ. веществ. 
разность 2 | ШІМ целое целое 
Получение наи- 1 | маг повыш. т. веществ. 


большей знача- 

щей части аргу- 

мента повышен- 

НОЙ ТОЧНОСТИ є 

Получение дейст- 1 | ВЕАЁ комплекс. | веществ. 
вительной части " 

комплексного ар- 

гумента 


Е ЕсЕИЕЫШЫС—Е 
‚ * Функция МОР или АМОР (а, а.) определяется как а, — [41/4] · а, где [х] 


является целым, величина которого не превосходит величины х и знак которого 
совпадает со знаком х. Зет. Ў 
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„Продолжение табл. 23 


Тип 
Кол-во 
аргу- | Иденти- 
Встроенная функция Определение лыд нене 
тов аргумента функции 


Получение мни- 1 | АМАС | комплекс. | веществ. 
мой части комп- 

лексного аргу- 

мента 

Преобразование 1 | ОВЕЕ веществ. повыш. т. 
вещественного 

аргумента в фор- 

му повышенной 

точности 

Получение ком- | а |а 9—1 2 | СМРІХ | веществ. комплекс. 
плексного числа 

из двух вещест- 

венных аргумен- 

тов 
Получение числа, к 1 | СОМТа | комплекс. комплекс. 
сопряженного 

комплексному ар- 

гументу 


7.3. Внешние функции 


"Внешняя функция определяется внешне по отношению к той про- 
граммной единице, которая к ней обращается. В языке ФОРТРАН 
определены две разновидности внешних функций: 

внешние функции, описанные операторами, отличными от опера- 
торов языка ФОРТРАН и называемые основными внешними функ- 
циями; 

внешние функции, описанные посредством операторов ФОРТРАНа, 
первым оператором которых является оператор ЕОМСТІОМ, называе- 
мые процедурами функций. 


7.3.1. Основные внешние функции 


В табл. 24 приведен список основных внешних функций, реали- 
зация которых предусмотрена стандартом языка ФОРТРАН. 

Обращение к основным внешним функциям производится в соот- 
ветствии с общими правилами обращения к внешним функциям 
(см. далее). 

Параметры, для которых результаты этих функций математически 
неопределены или которые имеют тип, отличный от указанного в 
табл. 24, использовать запрещается. | р 
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Таблица 24 
Основные внешние функции 


Коли- Тип 
библиотеч- чество | Иденти- 
О" вя функция ЕРА Ч: Фикатор аргументы функции 
тов 
Экспонента её Т ВХР веществ. веществ. 
1 | РЕХВ повыш. т. повыш, т. 
1 | СЕХР комплекс, комплекс. 
Натуральный ло- | 08, (а) 1 | АОС | веществ. веществ. 
гарифм 1 | огоа повыш. т. | повыш. т. 
| || 950; комплекс. комплекс. 
Десятичный ло- бло (0) 1 | АГОС10 | веществ. веществ. 
гарифм 1 | 2Е0С10 | повыш. т. цовыш. т. 
Тригонометричес- | 51 (а) . 1 | 513 веществ, веществ. 
кий синус 1 | 051 повыш. т. повыш. т. 
1 | СУМ комплекс. комплекс. 
Тригонометричес- | соѕ (а) т |7605 веществ. веществ. 
кий косинус 1 | 000$ повыш. т. повыш. Т. 
: 1 | ССО5 { комплекс комплекс. 
Гиперболический | ѓайл (а) 1 | ТАМН веществ. веществ. 
тангенс 

Корень квадрат- | 21/2 1 | $ОВТ веществ. веществ. 
НЫЙ 1 | ОЗОВТ | повыш. т. повыш. т. 
1 | СЗОВТ | комплекс. | комплекс. 

Арктангенс агсіап (а) 1 | АТАМ | веществ. веществ. 
1 | РАТАМ | повыш. т. повыш. т. 

агсіап (а;/аз) 2 | АТАМ2 | веществ. веществ. 

2 | РАТАМ№ | повыш, т. повыш. т. 

Остаток 1 ау (тойа) 2 | рМОр | повыш. т. повыш. Т. 
Модуль 1 | САВ$ комплекс. | веществ. 


1 Функция ОМОР (а;, а.) определяется как а; — [41/43] · а», где [х] является це- 
лым, величина которого не превышает величины х и знак которого совпадает со 
знаком х. | 


7.3.2. Процедура функции 


Первым оператором в описании. процедуры функции должен быть 
оператор ЕОМСТІОМ, имеющий следующий формат: 


і ЕОМСТІОМ 1 (а) 


Здесь # — один из спецификаторов типа: ІМТЕСЕК, КЕАІ, РООВІЕ 
РВЕСІЅІОМ, СОМРІ ЕХ, ГОС1САГ или пусто; 
‘р — идентификатор определяемой функции; 
а — список формальных параметров, каждый из которых есть 
идентификатор переменной, идентификатор массива или 
идентификатор внешней процедуры. 
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Процедура функции может содержать любые операторы, кроме 
операторов ВОСК РАТА, ЅОВКООТІМЕ, еще одного оператора 
ЕОМСТІОМ или оператора, который прямо или косвенно ссылается 
на определяемую функцию. 

Процедура функции должна содержать по меньшей мере один опе- 
ратор РЕТОВМ. 

Идентификаторы, являющиеся формальными параметрами, не мо- 
гут появляться в операторах ЕОСТУАГЕМСЕ, СОММОМ или РАТА 
в данной процедуре функции. 

Идентификатор функции не должен появляться в невыполняемых 
операторах данной программной единицы, за исключением оператора 
РОМСТЮМ. Идентификатор функции должен появиться как иденти- 
фикатор переменной, значение которой определяется в теле данной 
процедуры в процессе каждого ее выполнения. Это значение перемен- 
ной, определенное к моменту выполнения оператора ВЕТОРМ в этой 
процедуре, является значением данной процедуры функции. 

Обращение к внешней функции производится посредством исполь- 
зования ее указателя в качестве первичного выражения в арифмети- 
ческом или логическом выражении. Фактические параметры должны 
соответствовать формальным параметрам процедуры по количеству, 
типу и порядку следования. Фактический параметр в обращении к 
внешней функции может быть: 

1. Идентификатором переменной 

2. Идентификатором элемента массива 

З. Идентификатором массива 

4. Любым другим выражением 

5. Идентификатором внешней процедуры 


7.4. Процедура подпрограммы 


Внешняя подпрограмма описывается вне программной единицы, 
которая к ней обращается. Внешняя подпрограмма, описываемая опе- 
раторами языка ФОРТРАН, первым оператором которой является 
оператор ЅЗОВКООТІМЕ, называется процедурой подпрограммы. 

Оператор ЅОВКООТІМЕ имеет один из следующих форматов: 


ЅОВКООТІМЕ ѕ (а) 
ЅОВВООТІМЕ $ 


Здесь $ — идентификатор описываемой подпрограммы; 

а — список формальных параметров, каждый из которых может 
быть идентификатором массива, идентификатором перемен- 
ной или идентификатором внешней процедуры. 

Процедура подпрограммы может содержать любые операторы, кро- 
ме операторов ВГОСК РАТА, РОМСТОМ, еще одного оператора 
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ЗОВКОЧТИМЕ или оператора, который прямо или косвенно ссылае- 
тся на определяемую подпрограмму. 

Процедура подпрограммы должна содержать по меньшей мере один 
оператор КЕТОКМ. 

Идентификатор подпрограммы не должен использоваться ни в 
одном из операторов данной процедуры, кроме оператора ЗОВКОЦ- 
ТІМЕ. 

Идентификаторы, являющиеся формальными параметрами в этой 
процедуре, не могут появляться в операторах ЕФШҮУАІЕМ№СЕ, 
СОММОМ, РАТА в данной программной единице. 

Обращение к подпрограмме выполняется посредством. оператора 
САШ. Формальные и фактические параметры должны соответство- 
вать друг другу по количеству, типу и порядку следования. Исключе- 
нием из правила согласования типов является использование тексто- 
вых констант в качестве фактических параметров. Фактический пара- 
метр при обращении к подпрограмме может быть: 

. Текстовой константой 
Идентификатором переменной 
Идентификатором элемента массива 
Идентификатором массива 

Любым другим выражением 
Идентификатором внешней процедуры. 

Если идентификатор внешней процедуры является фактическим 
параметром, то этот идентификатор (и только такой) должен быть опи- 
сан в операторе ЕХТЕВМАГ, в вызывающей программной единице. 


Ссл фо 


7.5. Сопрограмма ВОСК РАТА 


Сопрограмма ВГОСК РАТА, называемая сопрограммой начальных 
данных, должна начинаться с оператора ВГОСК РАТА, имеющего 
следующий формат: 

воск РАТА 


Сопрограмма ВОСК РАТА используется для присвоения на- 
чальных данных элементам помеченных общих блоков. Эта сопрограм- 
ма может содержать только: 

операторы типа, 

операторы ЕОСЛҮАТ ЕМСЕ, 

"РАТА, 
РІМЕМЅІОМ, 
СОММОМ. 


Форматы операторов ФОРТРА На 


При представлении общих форматов языка приняты следующие 
обозначения: 
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1. Прописные латинские б 


служебных слов языка. 


2. Основные символы, 


уквы используются только для записи 


отличные от прописных латинских букв, 


представляют самих себя. Таковы следующие пять символов: 


. 


З. Строчные русские буквы используются для записи метапонятий 
языка, т. е. общих синтаксических конструкций, вместо которых при 
записи конкретного оператора должны быть поставлены определенные 
языковые конструкции. Таковы: 


Обозначение в формате 


переменная 
выражение 


метка 
целое 
устройство 


идентификатор 
имя-блока 
список-фактических-пара- 
метров 
список-формальных-пара- 
метров 

список-элементов 


список-элементов- 1 


список-элементов-2 


список-элементов-3 


список-констант 


список-размерностей 
список-формата 
список-меток 
целое-1 

целое-2 


Языковая конструкция 
идентификатор простой переменной 
или переменной с индексами 
арифметическое или логическое выра- 
жение 
метка 
идентификатор переменной целого типа 
целая положительная константа или 
идентификатор переменной, значением 
которой является номер устройства 
идентификатор 
идентификатор 
список фактических параметров 


список формальных параметров 


список, элементами которого являются 
идентификаторы простых переменвых, 
массивов или описатели массивов 
список, элементами которого являются 
идентификаторы простых переменных 
или переменных с индексами 

список, элементами которого являются 
идентификаторы простых переменных 
или описатели массивов 

список, элементами которого являются 
идентификаторы простых переменных 
или переменных с индексами 

список констант 


список размерностей 
список формата 
список меток 


> целое 


целое 
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целое-3 целое Ң 


арифметическое-выражение арифметическое выражение 

логическое-выражение логическое выражение 

метка-1 метка ) 

метка-2 н метка 

метка-3 метка 

простой-оператор оператор, отличный от оператора рО 
| или логического оператора Е 

восьмеричное целое восьмеричное число, состоящее 


не более, чем из 5 цифр 


4. В квадратные скобки заключены те части языковых конструк- 
ций, вхождение которых в формат оператора является необязатель- 
ным. Другими словами, наличие квадратных скобок в формате опера- 
тора означает, что языком допускается два вида оператора, один из 
которых получается при удалении из общего формата содержащихся 
в нем квадратных скобок, а второй при их удалении вместе с содержа- 
шейся внутри этих скобок языковой конструкцией. 

5. Фигурные скобки используются с двоякой целью: 

а) наличие после закрывающей фигурной скобки многоточия 03- 
начает допустимость в записи нескольких конструкций, тип которых 
определяется содержимым этих фигурных скобок; 

б) наличие нескольких конструкций, записанных в виде столбца 
внутри фигурных скобок, означает возможность выбора при построе- 
нии конкретного представителя данного вида оператора любой из 
этих конструкций. | 

Ниже приведены общие форматы операторов ФОРТРАНа: 
переменная = выражение 
АЗЗТОМ метка ТО целое 
ВАСК$РАСЕ устройство 
ВГОСК. РАТА 
САГТ, идентификатор [(список-фактических-параметров)] 

СОММОМ {/имя-блока/список-элементов}... 


СОМРІ ЕХ 


я АІ, ЕОМСТІОМ идентификатор (список-фор- 


РООВГЕ РВЕСІЅІОМ мальных-параметров) 
ІМТЕСЕВ 


СОМТІМОЕ 

РАТА список-элементов-1/список-констант/ {,список-элементов- 1 /спи- 
сок-констант/)... 

О МЕМЗ!ОМ идентификатор (список-размерностей {идентификатор 
(список-размерностей)}... 

ОО метка идентификатор = целое-1,целое-21,целое-3] 
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| РрООВІЕ РРЕСІЅІОМ 

| СОМРІЕХ 

) ЕХТЕЮМАГ, 
МТЕСЕВ список-элементов-2 
ГОСІСАІ, 

\ ВКЕАГ 


ЕМОЕРЦЕ устройство 

ЕООТУАГЕМСЕ (список-элементов-1){, (список-элементов-1 м... 
идентификатор (список-формальных-параметров)=выражение 
РОВМАТ (список-формата) 

СО ТО метка 

СО ТО целое, (список-меток) 

СО ТО (список-меток), целое 

ТЕ (арифметическое-выражение) метка-1,метка-2,метка-3 

ТЕ (логическое-выражение) простой-оператор 

РАОЗЕ [восьмеричное] 


ВЕАО (устройство , Е [список-элементов-3] 


РЕТОЮМ 

ВЕМ/ИМО устройство 

ЗТОР [восьмеричное] 
ЗОВКОЧТИМЕ идентификатор [(список-формальных-параметров)] 


МЕГТЕ (устройство О | [список-элементов-3] 


ОТВЕТЫ К ЗАДАНИЯМ 


ГЛАВА 1 


Порция 1 


1. Исходная программа — это описание алгоритма решения задачи на одном 
из языков программирования (например, на ФОРТРАНе); рабочая программа — 
программа, полученная в результате работы транслятора, эквивалентная исходной 


программе. 
2. Транслятор переводит программу с некоторого языка программирования на 
язык конкретной вычислительной машины и определяет синтаксические ошибки, 


допущенные при написании исходной программы. 
3. Выполняемая программа на ФОРТРАНе может состоять из главной про- 
граммы или из главной программы и ряда внешних процедур и сопрограмм данных. 
4. Операторы подразделяются на выполняемые и невыполняемые. 
5. Операторы присвоения; 
операторы ввода-вывода информации; 
операторы управления. 


Порция 2 


1. 47. 
2. 11, ем. стр. 10: 


Порция 3 


1. В ФОРТРАНе различаются два типа слов: служебные слова и слова поль- 


зователя. 
2. "Сме стр: 11: 


Порция 4 


1. Целые, вещественные, повышенной точности, комплексные, логические, тек- · 


стовые. 
2. Значения логических данных следующие: .ТВОЕ., .ЕАГЗЕ.. 


Порция 5 


1. Константа — это данное, которое появляется в программе в явном виде. 
2. Можно. 
3. Определяет. 


Порция 6 


1. Целой называется константа, обозначающая целое десятичное число и не со- 
держащая в своей записи десятичной точки и порядка: 
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Порция 7 


1. В ответах приведено по одному из возможных вариантов записи вещественных 


констант; 


а) 347.0; б) 74.32; в) —5100.; г) 1.Е15; д) 834Е—10; е) —20.0; 
ж) —45.21Е—12,. 

. а) запятую употреблять в записи констант нельзя, 

6) показатель степени должен быть целым, 

в) запятую использовать нельзя, 

г) нет десятичной точки, 

д) показатель степени должен быть целым, 

е) число слишком велико для большинства ЭВМ. 


. а) да, б) да. 
Порция 8 
. 375453214891.2254р0 
Порция 9 
. а) (315.3, 2.22); 6) (21Е2, 2.1); в) (30Е2, —3.155) 
Порция 10 
. Две: „ТВОЕ. и .ЕАГЗЕ.. 
. Четыре: №, В, Ви Р”. 
Порция 11 


. бННАЧАЛО; ЭНРЕЗУЛЬТАТ; 10НТАБЛИЦА, 223 


Порция 12 


А) Б) 01). 13). 15). 

. а) 1) 938; 2) 345 000 000; 3) 3450; 4) —128; 5) 2 

б) 1) 938.; 2) 345Е6; 3) 3450.0; 4) —128.; 5) 2.0 

. 1) .01; 2) 500.; 3) 300.0; 4) —255000.; 5) .0243 

4. 1) недопустима - 19) вещественная 
2) недопустима 20) целая 
3) недопустима 21) недопустима 
4) вещественная 22) недопустима 
5) вещественная 23) текстовая 
6) повышенной точности 24) недопустима 
7) комплексная 25) недопустима 
8) текстовая 26) текстовая 
9) вещественная 27) недопустима 
10) недопустима 28) недопустима 
11) недопустима 29) текстовая . 
12) недопустима 30) недопустима 
13) целая 31) вещественная 


10 5—1609 


14) недопустима 

15) вещественная 

16) текстовая 

17) вещественная 

18) повышенной точности 


32) целая 

33) вещественная 

34) повышенной точности 
35) повышенной точности 
36) текстовая 
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Порция 13 


1. См. стр. 19. 

2. Идентификатор используется для обращения к переменной. 

3. Обращение к переменной — это присвоение ей значения или извлечение ее 
значения. 


4. Пять: целые, вещественные, повышенной точности, комплексные, логические. 


Порция 14 
1. а), г), д), е), ж) 
Порция 15 
1) целый 7) вещественный 13) целый 
2) целый 8) вещественный 14) вещественный 
3) вещественный 9) целый 15) вещественный 
4) вещественный 10) вещественный 16) вещественный 
5) целый 11) вещественный 17) целый 
6) целый 12) целый 18) целый 
Порция 16 


1. Идентификаторы целых переменных: 


ГІТ, М!125, ГАВОЕ, 421 
Идентификаторы вещественных переменных: 


А2, А2ВС, ААВ, АВВІ, АВАС, Е2, ро, ЕМО, ВЕСІМ, ЅМІТН, АГСОГ, ВІМОЗ 


Последовательности символов, недопустимые в качестве идентификаторов пере- 
менных в языке ФОРТРАН: 


2А,А—2,Е(Х),А(2), АВСО71А,АВ.АС,АЭВС/,АВ »АС,В/АС,А+В,0.1.А, (ВАС), 125М 


2. а) вещественная переменная 3) вещественная переменная 
б) вещественная константа и) комплексная константа 
в) целая переменная к) целая переменная 
г) комплексная константа л) константа повышенной 
д) целая переменная точности 
е) вещественная константа м) текстовая константа 
ж) целая переменная н) текстовая константа 


0) текстовая константа 
р) целая константа 


Порция 17 


СОМРГЕХ ОК,О5,0Т 
ТОСІСАІ А|,А2,АЗ к 
РОЧВЕЕ РБКЕСІЅІОМ АІТ, КВІМа 


Порция 18 


1. Шесть: целый, вещественный, повышенной точности, комплексный, логиче- 
ский, текстовый. 

2. Пять: те же, что и данные, кроме текстового. 

3. Идентификатор в этом случае может принадлежать к любому типу 
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Порция 19 


1. Пять. 

Порция 20 
а) Х+Ү+-7 
б) А«Х--В+У-НС+7 
в) В-- 5+2 

Порция 21 
а) Х++3-4-Ү 


б) (Х--Ү)+*3 


в) Х++2/Аж-9 РУ + =0/Ва0-- 7+0 / Са 


г) А+-(В--р)/(С--Е) 
д) (А*Ү--В+Х)/СХ++44-3.0 


е) (С++2--р 9) (Са2—-р 9)--С+р/2.04-С 


ж) 5.+.Х—Ү--Х*+4/(2.+В)—1.0 


Порция 22 


1. а) 1) А+В; 2) (А--В)--С; 
б) 1) С+=2; 2) А.В; 
в) 1) Х»У; 2) А/В; 
г) 1) Х+=3; 2) Сғр; 
5) (А--В)-+-(С*0)--(Х * 3). 
2. 1) 9), 9) а). 


3) (АхВ)--(С= +2); 
) СЕ (А/В); 


+В; 4) (А+В)--(С*р); 


3. Ответ «не является» относится к выражениям, включающим разнотипные 
данные в недопустимых языком сочетаниях. 


1) не является 
2) не является 
3) вещественный 
4) не является 
5) вещественный 
6) целый 

7) вещественный 
8) вещественный 
9) не является 
10) не является 
11) не является 
12) не является 
13) целый 


14) не является 
15) вещественный 
16) целый 

17) целый 

18) не является 
19) не является 
20) целый 

21) вещественный 
22) не является 
23) целый 

24) целый 

25) не является 


Порция 23 


а) отсутствуют скобки 

6) данные разных типов 

в) пропущен знак умножения и 
скобки 

г) отсутствуют внешние скобки, 
данные разных типов 

д) данные разных типов 

е) данные разных типов 


Х+(3.*Ү) +2 
Х--(Ү—5.)/Ү 2 
В/В1--С»+Б/(В=В1*Н) 


((АК--О»Х--3.1416)/(Б--Х)) +2 


((А-ЕВ=С)/(А»С))*»(А-Е1.0) 
(—2.*Х»»3-Е3.*У*=2— 42.) /(9.+У*=3) 


Порция 24 


1. Логическое выражение — это правило для вычисления одного логического 


значения. 
2. См. стр. 32 


10* 
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Порция 25 
1. См. табл. 9 на стр. 33 

Порция 26 
1. См. табл. 10 на стр. 34 · 


Порция 27 
1. (Х++2).СЕ.(А—С)*3)).АМ№Р. ((В+Х).ЕО.(.75*(Х #+2))) 


`Порция 28 


Для заданий 1 и 2 приводится по одному из возможных вариантов: 
. У*+2..Е.Х.АМО.У.ЩСЕ.Х 
. У.ТЕ.(--Х*+»*2).ОВ.У.СТ.О.0 
. а) рис. 8, б) рис. 6, в) рис. 7. . 


со м — 


Порция 29 


а) ЅОВТ(А»++3)--50ВТ(А—В); 
б) СОЅ(АТРНА)--ЅІМ(АГРНА). 


ИТОГОВОЕ ЗАДАНИЕ 


1. а) 1) 0.178345; 2) 78.2537; 3) 1832.0; 4) 65921.0; 5) 3421.0 
6) 1) 178.345Е—3; 2) 7825.37Е—2; 3) .1832Е4; 4) 6.5921Е4; 5) 342.1Е1 (порядки 
можно выбрать другими) 
в). 1) 178.3450—3; 2) 78.253700; 3) 1.832103; 4) 6.592104; 5) 0.342104 
г) 1) 8Н0,178345; 2) 7Н78,2537; 3) 4Н1832; 4) 5965921; 5) 493421 
. 1) (7321.0, —321897.0); 2) (27321.0, 0.0); 3) (0.0, —321897.0) 
г 2), 496) 9) 
1) 1.—Х ж+2/2. 4-Х + =4/4. 
2) (Х+*У/У»+Х)**(7+*(—В)) 
3) (Х—Ү)«513(Х)--(Х +=3-РУ ++3) «513(Х)/СОЅ(Х) 
4) 7.95--(Х/(Х— Ү)--5.0)«51Ҹ(Х) 2 
5) ((ЕХР(Х)—ЕХР(—Х))/2.0)++2--((ЕХР(Х)+-ЕХР(-Х))/2.0) +2 
6) АВ$(АГОС(Х)+*+2— У)--7.3=Х—8.0*У+*(—2.3) 
7) АВ5(А)+АВ$(В)*«СОЗ(АЕРНА) 
8) А++(—Х)--В/(1.-+-Х ++2)--5ӦКТ(АВ5(Х—А)) 
9) АВЅ(Х/А»*+Х--3.+Вж+(—Х))--15.4=Х+(—3) 
10) Х*Ү/ЅОВТ(Х ++2--Ү ++2) —-АГОС(АВЅ(Х—50867Т(1.-- Х*=2))) 
. 1) АЧВ.ТТ.1.0.ОВ.С-ЕБ.ОТ.3.0 
2) (Х-У)+-2-НС.ГТ.5.5.АМО.Х.СЕ.0.0 . 
3) 5ІМ(Х).ІТ.СОЅ(Х).ОК.В.ІТ.1.0 
4) 2.+Х —3..СТ.0.0.ОВ.Ү.ІТ.0.0.АМ№Р”.С.СТ.2.0 
5) АВ(Х1—А)+-АВ9(Х2—А)--АВ5(Х3—А)._Т.ЕР5 
6) .МОТ.(А.ОВ.В.ОВ.С).АМО.А.ОВ.С.АМО.(.МОТ.В.АМРО.А) 
Т) В+=2—4..А»С.СЕ.0.0.АМО.С.СТ.О.0.ОВ.А.ГТ.В 
8) ЗОКТ((Х1—А)+=2-- (Х2—А)+=2-- (ХЗ—А)+*2).ГТ.ЕР$ 
6. а) рис. 11; 6) рис. 9; в) рис. 10. 
7. Х.ГЕ.О.5.АМО.У.ЕЕ.0.5.АМО.У.АТ.(—0.5) 


292 


ыыы 


5 


ГЛАВА И 


Порция 30 
. 0.0 
Порция 31 
. 16.69 
Порция 32 
. 381 
Порция 33 
. а) 14.0 вещественный 
б) 0.0 вещественный 
в) 12.4 вещественный 
г) 39 целый 
д) 36 целый 
е) 6.0 вещественный 
ж) 6.5 вещественный 
3) 150.0 вещественный 
и) 150.0 вещественный 
к) 0 целый 
. а) С=$ОКВТ(А»*+2—В*+2) 
б) Х=(Р—Т)+*3 
в) Ү=Р+*34-Теғ3 
Порция 34 


. а) К2=2.+5*С05(Т)/(6.2832:Х) 
б) У=3.1416/3..В «9 *Н 
в) 0=3. 1416/3.*(В++2-- В 1+=2-- В +В 1)«Н 
г) АМРЕК=Ү/ЅОВТ(Х ++2- (С«В—Х*С)*+2) 
д) А=2.0*5ОВТ(Х+=2-2.*Х+У) 


Порция 35 


. а) АТЕУ.ГЕ.—(Х»*2).ОВ.У.СЕ.0.0 
б) ВГ=Х+2--У+»2.[.Е.1.0.АМО.У*х9.[.Е.Х 


Порция 36 


- 1) О=$ОВТ(Ха=2-- У»ж2-- 7+2) 
2) Х=А**2--В»*+2—2..А«В»СОЗ(ВЕТА) 
3) РЗХ= АО--Х+(А1-- Х»(АЗ-Р АЗ»Х)) 
4) 2=Х+У/(Х+=(3./2.)-|- У **(3./2.))(ЕХР(Х)—2.4)/(Х--У) 
5) ЕХ=АГОС(АВ$(Х-2.0))—5.0+(1./(2.-- Х)--А/(3.+(1.-- Х))) 
. | В=Х..2--У»+2.(Е.4.0 
2) В=Х+*2—У+*2.1Т.16.0.АМО.Х.СТ.о.0 
3) К=Х.ЕО.У.АМО.Х.СЕ.0.0 
4) К=А.СТ.В.ОВ.С.ГЕ.р.АМ№Р”.А--С.СЕ.0.0 
. 1) Правильно 2 
2) Числовой (целой) переменной нельзя присваивать логическое значение 
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3) Логическая и вещественная переменные не могут соединяться знаком арифме- 
тической операции 

4) Логической переменной нельзя присваивать’ числовое значение 

5) и 6) логическая переменная не может быть операндом арифметического выра- 
жения 

7) Правильно 

8) Правильно 


Порция 37 
1. Один 
Порция 38 
1. Нужно записать символ С в первой позиции этой строки. 
| Порция 39 
1. лил 2. А= К» 12 
Порция 40 


І.В позиции 6 строки продолжения нужно записать символ, отличный от пробела. 
2 п л ЛО ЈАТРНА=САММА»:3+”рЕТТА ++34-РЕТА/САММАУ--(САММА--РЕІТА)/ 
ол лл л Л(САММА*+РЕІТА)—$0ЕТ(САММА»+рЕІТА) 


Порция 41 


І. лл л лл 26 25.3 А 
гллилл 25= 2. В 249.0: В +=3/2.0 


Порция 42 
1. См. стр: 53. 
Порция 43 
1. КЕАР” (2,6)Х,Ү,2,№ 
Порция 44 
1. а) КЕАР” (2,3)А,В,С,р 
б) МЕІТЕ (1,4) ОМ, РАБАР”, АМРЕВ 
в) КЕАР (2,5)Ј,К,1,М,М№ 
г) МБІТЕ (1,10)Х,Ү,7 
Порция 45 
1. См. стр. 57. 
Порция 46 


1. Символы «,» и «/». 
2. 5 ЕОВМАТ (416) 


294 


Порция 47 
1. См. стр. 58—60. | 
| Порция 48 


1. а) Список форматов полей в операторе ЕОКМАТ не заключен в скобки. 
6) Суммарная ширина полей форматов превышает 80 колонок. 


Порция 49 


ВЕД (2,3) В,5, Т.1,1,К,1.,М,М1В,В, КВ,ЕВ, МВ, МВ 
ЕОВМАТ (3Е15.3/4(316)) 


[<] 


Порция 50 
1. Три. 
Порция 51 


18 Нет, так как для отдельных переменных определенного типа фиксируются одина- 
ковые поля памяти раз навсегда фиксированного размера. 


Порция 53 
1 Нет, так как форматы ввода не согласованы с типом вводимых данных. 
Порция 54 
1. а) ИИ; 6) 1488 
2. а) ТРАЛИИ; 6) ТР: ,—1488 
Порция 55 
1. ВЕАР (2,7) К,Г.,М,М 
7 ЕОВМАТ (418) 
у Порция 56 


1. — ВЕАР (9,10)А,В,С,р 
10 ЕОВМАТ (ЕТ.1,Е8.2,Е6.2,Е6.3) 
ИЛИ 
ВЕАР (9,11) А,В,С,2 
11 ЕОВМАТ (4Е9.3) 
2. МВІТЕ (1,4)А,В 
4 ЕОВМАТ (2Е10.9) 


Порция 57 


15 КЕАР” (2,5) А,В,С,Х 
5 ЕОВМАТ (4Е10.3) 
О=С—В»*2/2.0 
5ТВ=5ОВТ(А*Х+=2*(Р»+Х--$1М(0)+А))—А+В/2.0 
МЮТЕ (1,6) А,В,С,Х,5ТВ 
6 РОКМАТ (5Е16.6) 
ух КЕАР” (2,8) А,В,С 
8 РОКМАТ (3210.3) 
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Х=51ИМ(А)/СО$(А)*5О КТ ($1М(В)—АВ$(В)-НС»+3) 
МЕВТЕ (1,10) А,В,С,Х 
10 РҒОКМАТ (4Е16.6) 


Порция 58 


1“ КЕАР” (2,3)А,Х,5 
3 РОВМАТ (3Е10.3) 
У=5ОКТ(Х +*2—А»+2) 
7=Х*5/2.0—А»*»2/2.0+АТОС(АВ$(Х--5)) 
М\ВИЕ (1,15) А,Х,5$,У,7 
15 РОВМАТ (5Е16.8) 
25 КЕАР” (2, 12)АО, КІС,5ТІ,ВК2,5КТ 
Т=(ВВ2/5Т1) +2 
О=508Т(56Т— 616) 
Е=АО--В10/8Т14-(Т4-К10)/(Т—818)+-0 
М/ЕТЕ (1,14) АЦ, ВТО, 5Т1,ВК2,5ВТ,Е 
12 ЕОВМАТ (5210.3) 
14 РОКМАТ (6Е15.7) 


Порция 59 
1. 1 2 3 4 
123456789012 3 4567890 1234567 8 901234567890 
0.2873Е-- 05 —0.3200Е— 05 
11 70: —0.7600Е—05 
2: —0.1234Е— 04 


2. МВИТЕ (1,5)0,5,Р,Т,К,0 
5 ЕОВМАТ (2615.4) 


Порция 60 


Возможный вариант ответа: 
1. 2 РОВМАТ (3022.15) 


Порция 61 


Переменные К2, 1061, 1002 будут иметь значения соответственно: 
И: 19 ЕЕ: 

ОС! БАЗЕ. 

ІОб2 .РАГЗЕ. 


Порция 62 


МВИЕ (1,7) 
7 БОВМАТ (60Ні__ РЕЗУЛЬТАТЫ „ВЫЧИСЛЕНИЯ, СКАЛЯРНОГО, + 
1 ПРОИЗВЕДЕНИЯ, „ДВУХ1ВЕКТОРОВ) 


Порция 63 


16 МБІТЕ (1,10)ТОВІ,ТОВ2,ТОВЗ,ТОВ4 3 
10 ЕОВМАТ (53Х,26ННАЛИЧНЫЙ‹ „ЗАПАС /ТОВАРОВ// 
„32Х ,АНТОВІ, 16Х,4НТОВ?, 16Х ,4НТОВЗ,16Х,4НТОВ4А// 
+29Х,Е10.0,10Х,Е10.0,10Х,Е10.0,10Х,Е10.0) 
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Порция 64 
1.  \УРТЕ (1,2) А,В 
2 РОВМАТ (2А2) 
Порция 65 
1. вл 72532 п_ил 89000 пил 21.325 
Порция 67 
1. При отсутствии операторов передачи управления операторы ФОРТРАН-програм- 


мы будут выполняться последовательно в порядке их следования в записи про- 
граммы. : Ы 


Порция 68 
1. См. стр. 85. 
Порция 69 
Правильная запись оператора Ошибка в задании 
1. а) ОО ТО (23,24) 1В список меток не заключен в скобки; 
р пропущена запятая перед управляю: 
| щей переменной; 
б) ЧО ТО (23,24) 1 нет запятой после: скобок; 
в) СО ТО (23,94,95), КА управляющая переменная должна быть 
целого типа; 
г) СО ТО (93,94), К десятичная точка недопустима в записи 
метки. 
Порция 70 
1. АЗУТОМ 31 ТО 1, 
Порция 71 
Правильная запись оператора Ошибка в задании 
1. а) СО ТО ІВБВ,(1,2,3,4,5) пропущена запятая после идентифика- 
тора переменной 1ВВ; 
б) СО ТО КЗ5,(3,15,7,23,53) в списке меток должна быть метка 7; 
в) СО ТО ККК, (19,20,21,22,23) управляющая переменная должна быть 
целого типа; 
г) А551СМ 3 ТО ВВ значение метки может быть присвоено 
только в операторе А5818; 
д) А55ІСМ 3 ТО 1ВВ переменная, которой присвоено значе- 
СО ТО ІКК,(1,2,3,4,5) ние метки, может быть использована 
только в операторе СО ТО по предпи- 
санию. 8 е 
Порция 72 


1. Смысл оператора СО ТО по предписанию не изменится, оператора СО ТО по вы- 
числению изменится. . 5 
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2. Если добавляемая метка отлична от всех меток, перечисленных в списках опера- 
торов СО ТО по вычислению и по предписанию, то возможности каждого из этих опе- 
раторов расширяются за счет появления еще одной программной ветви, на которую 
они могут передавать управление. 

Если добавляемая метка совпадает с одной из имеющихся в списке оператора 
СО ТО по предписанию, то возможности этого оператора не изменяются. В аналогич- 
ной ситуации для оператора СО ТО по вычислению возможности последнего расши- 
ряются за счет того, что управляющей переменной может быть присвоено еще одно 
значение, соответствующее номеру позиции добавленной метки. 
3. а) недопустима, если после первого оператора нет соответствующего оператора 
А$51АМ; 

6) допустима, если между указанными операторами значение переменной К не 
переопределено; 

в) недопустима; в списке оператора СО ТО по вычислению должны быть указаны 
та е без знака), а не переменные. 

га), г). 


Порция 73 


1. а) ІЕ(Х)10,10,20 
10 Е=51№(Х) 
ао ТО 30 
20 Е= Х--АТОС(Х) 
30. (продолжение программы) 
б) ТЕ(Х—10.)10,20,30 
10 Е=Х-—1.0 
СО ТО 40 
20 Е=3.0+Х +:2--4.0 
СО ТО 40 
30 Е=7.1+Х—5.6 
40 (продолжение программы) 


Порция 74 
1.1 ЈЕ(1Л.АМОЛ.2)А-=А--1.0 
2 {продолжение программы) 
2. ІЕ(Х.СЕ.12.7)Е=2.0+Х—СОЅ(Х) 
ТЕ(Х.ТТ.12.7)Е= Ха#9--4.0#Х 
7 {продолжение программы) 
Порция 75 


1. Оператор РАОЅЕ используется для временной остановки выполнения программы. 


Порция 76 


1. Оператор ЗТОР передает управление программе-монитору. 


Порция 77 


1. а) недопустима, 
6) допустима, 
в) недопустима, Я : я с 
г) допустима. МА уо 
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ИТОГОВОЕ ЗАДАНИЕ 


1. а) $=1.7-Н У +2 
Х=5/Аж=3—5**0/Аж+б--Зж»4 
6) ВЕ м-в) 
Г=В.СК--СК»=2/В, 
Я: а РАМ= ТЕ ОКВ ВО.СК.АМО.СМ.ОТ.1.1 
6 РАМ=У*+*2—Хь»2.1.Е.1.0.АМО.Х.СЕ.о.0.АМО.У.Т.Т.о.0 
3. КЕАО_(2,1)В,5,Т - 
1 БОВМАТ (3Е8. Ра 
У=2. и 


ГУ 
ый 3 (30Х, о ные, 
ІЕ(Х) 
1 Е=Х-+20, 0 
СО ТО 8 
2 ТЕ(Х —10.)3,3,4 
3 Е=Х++2—6.0 
СО ТО 8 
4 ТЕ(Х—12.)5,5,6 
5 Е=2.:«Х+-5.0 
СО ТО 8 
6 Е=4.«Х++3—10.0 
8 МБІТЕ (1,9)Х,Е 
9 ХЕР (15Х,Е15.8,10Х,Е15.8) 


б 


А) 
[<> 
>>. 
я 
уә 


7 РОВМАТ (ох, о а ма же ыы, 
П ТЕХ. ОТ. 12.0)Е=4.+Х ++3—10 

1Е(10.0.ГТ.Х.АМО.Х.ГЕ. 12. 0-2, *Х--5.0 

ІЕ(0.0. Е. я .АМО.Х.ЕЕ.10.0)Е=Х+.2— 6:0 

Е= Х--20 

ҮВІТЕ (1, х, Е 
9 А (15Х, Е20.8,20Х,Е20.8) 


ТЕ(Х.ГЕ.ХК) СО ТО 1 
(продолжение программы) 


ГЛАВА Ш 
Порция 78 


5 ХО)—А(7У-+З.416:4(1)е«2 


1Е(7—20)5,5,17 
17 (продолжение программы} 


11* 
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| Порция 79 
1. В(1,1), В(2,1), В(3,1), В(,1), В(2,2), В(3,2) 


‚Порция 80 


1. 16. 
9; Позиция элемента массива в упорядоченном множестве элементов этого массива 


называется приведенным индексом этого элемента. 


Порция 81 
1. КЕС(3,1,2+К—3) 


Порция 82 


1. а) правильно, 
6) правильно, | 
в) четырехмерные массивы в стандарте языка ФОРТРАН недопустимы, 
г) индексы должны быть целыми, 
д) индекс не может быть отрицательным, 
е) правильно. 
2. 5=00 
1=6 
5 5=5--Х (1) 
114-1 


1Е(1-_30)5,5,6 
6 (продолжение программы) 


Порция 83 
1. См. стр. 106. 


Порция 84 


1. РІМЕМЅІОМ А(6, 17), САТМ(3,4),2(3),РАТЕ (6,2, 2) 
2. а) описатели массивов должны отделяться друг от друга запятыми, 
б) ошибка в записи служебного слова О1МЕМЗ1ОМ. 


Порция 85 


1. а) О1МЕМ$1ОМ Х(3) 
РАС=50ЕТ(Х (*=2-НХ (2) *=2- Х (3)*+2) 

6) Р1МЕМ$1ОМ Х(3) 
СА=Х(1)/ЗОВТ(Х(1) *+2-- Х (2) *+2--Х (3)*+*2) 
СВ=Х(2)/ЗОВТ(Х(1)++2-- Х (2) *=2--Х (3)**2) 
сс=хХ(8)/ЗОВТ(Х (1)++2--Х (2) ==2--Х (3) +2) 

ИЛИ 

ПІМЕМЅІОМ Х(3) 
р=5оВТ(Х (1) *=2-НХ (2) +92-- Х (3)*+2) 
СА=Х(1)/р 

СВ= Х (2)/р 

СС= Х (3)/0 
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Заметим, что второй вариант фрагмента программы короче по записи и экономнее 
по времени выполнения. 


Порция 86 
1. Вычисление суммы положительных членов ‚последовательности. 
2. аа 5=0.0 = = 
1=0 
10 1=1+1 


ІЕ(А(1).СТ.0.0)5=5--А(І) 
ІР(І.Е.№) СО ТО 10 
(продолжение программы) 
6) 5=0.0 
1=0 
10 1=1--1 Е 
ТЕ(Т.СТ.№) СО ТО 15 а 
| ДЕ(А().СТ.0.0)5=5-А) о В 
во: ^^ м. р ЕВ: 


15 (продолжение программы) 
3. а) М= (числоу 
$1=0.0 
1=1 
5 1=1 
10 51=51--А(І,Ј) 
ТЕ(М.ЕО.У) СО ТО 15 
Ј=Ј+-1 


СО ТО 10 
15 ІЕ(І.ЕО.№) СО ТО 20 
1=14-1 
СО ТО 5 
20 (продолжение программы) 
6) М= (число) 
$1=0.0 
1=1 
5 Ј=І 
10 $1=$1--А(Т,Т) 
ІЕ(7—) 12, 15,20 
12 Ј=]Ј-+1 
СО ТО 10 
15 ІЕ(1—1)16,20,20 
16 1=1+-1 
СОТО 
20 (продолжение программы» 


Порция 87 
1. ә) ОІМЕМЅІОМ А(50),В(50) 

5=0:0 

РО 7 1=1,50 
25122] 

7 5==54-А(1)*В(Ј) 
6 ОЮІМЕМЅІОМ А(50),В(50) | 
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:5=0.0 
1=1 

5 Ј=51—1 
м 0 


1Е(1—50)5,5,6 
6 (продолжение программы» 
Примечание. В приведенных фрагментах программ оператор Ј==51—1 введен 


в связи с тем, что запись (51—1) недопустима для индексного выражения. 


со № — 


Порция 88 


РІМЕМЅІОМ А(15,15),Х(15),В(15) 
ро 5 1=1,15 
В()=0.0 
рО 5 Ј=1,15 . 
5 В()= В-- АЦ, 3х) 


Порция 89 


РІМЕМЅІОМ М1(10, 10), МВЕЗ(10, 10) 
ро 5 1=1,10 
ро 5 К=1,10 
МКЕ$(1.,К)=МІ(К,1) 

5 МВЕЅ(І,К)=МКЕЅ(1,,К)ғ»92 


Порция 90 


. Глубина вложенности операторов цикла стандартом языка не ограничена. 
. Могут. | : 
. См. стр. 118. 


Порция 91 


. Конечным оператором области оператора РО может быть только оператор, не вы- 


зывающий передани управления. 


Порция 92 


. Вычисление суммы элементов и лежащей выше главной диагонали, ВКЛЮ= 


чая элементы диагонали. См. стр. 111. 


. а) пересечение циклов недопустимо, 


б) переменная І в программе не определена, 
в) программа эквивалентна приведенной в задании 1, 
г) переменная І в программе не определена; имеет место пересечение циклов. 


Порция 93 


. а) ВЕАБ(2,1)ЕР$,Х1,У1,21,А11,А12,А13,А21,А22, А23,АЗ1,АЗ2,АЗЗ,В1,В2,ВЗ 


1 РОВМАТ (Е8. 6/(3Е12. 4)) 
ро 10 1=1,100 
Х0=хХ! 
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Ү0=ҮІ 
20—71 
Х1==А11+Х0--А12*Ү04-А13:70--ВІ 
У1=А21+Х0--А29,У0-- А23+20--В2 
21=АЗ1*Х0--А32+У0-- АЗ3»20--В3 
1Е(АВ$(Х1—ХО).ГТ.ЕРЗ.АМР.АВ$(У1—У0).1.Т.ЕРЗ.АМО.АВ$(20—21). 

1 ІТ.ЕРЅ) СО ТО 5 

10 СОМТМОЕ 
ҮУВІТЕ (1,2) 

2 РОВМАТ (5Х,І8НПРОЦЕСС! ІРАСХОДИТСЯ) 

5 МВІТЕ (1,3)1,ХІ,ҮІ,21 

3 РОВМАТ (5Х,15НЧИСЛО: ЈИТЕРАЦИЙ: ,13,10Х,3Е19.4) 


ЕМ” 


Внимание! Символ 1, стоящий перед оператором СО ТО 5,— символ продол- 
жения оператора. 
б) Для выполнения этого задания необходимо включить в программу, приве- 
денную в задании а), следующие операторы: : 
1) Включить оператор РІМЕМЅІОМ№ А(3,3),В (3) 
2) Оператор ВЕАР переписать так: 
ҚЕАр(2,1) ЕР$,Х1,У1,71,А,В 
В операторах: Х1= 
У == 
ЕЕ 
заменить ВІ на В(1), В? на В(2), ВЗ на В(3), А11 на А(1,1) ит. д. 
В остальном программы будут эквивалентны. 
в) Для выполнения этого задания в программе, приведенной в задании 1, сле- 
дует произвести следующие изменения: 
1) Включить оператор Р1МЕМ$1ОМ А(12) 
2) Оператор ВЕАР” записать в виде: 
КЕАО(2,1)ЕР5,Х1,У1,21, А 
3) В операторах ХІ 
Х2= 
Х3= 
заменить: А11 на А(1) 
А21 на А(2) 
АЗІ на А(3) 
А12 на А(4) 
Ф А22 на А(5) 
АЗ2 на А(6) 
 АІЗ на А(7) 
А23 на А(8) 
АЗЗ на А(9) 
ВІ на А(10) 
В2 на А(11) 
ВЗ на А(12) 
2. Полагая, что в программе, выполняемой до приведенного ниже фрагмента, решаю- 
щего поставленную задачу, определены значения: переменной целого типа №, опре- 
деляющей порядок решаемой системы уравнений; элементов массива А(М,№ — 
коэффициентов при неизвестных, элементов массива В(№) — свободных членов урав- 
нений, элементов массива УАТ.(М) — начальных приближений, переменной вещест- 
венного типа ЕР (заданная точность приближений), К — максимальное число до- 
пустимых итераций, при превышении которого процесс считается расходящимся 
(переменная целого типа), реализуем следующий алгоритм. 
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Введем в рассмотрение массив логических переменных размерности № — массив 
ВООЦ(КМ). В начале выполнения настоящего фрагмента заполним его значениями. 
-ТКОЕ., а в дальнейшем после вычисления каждого из новых приближений будем 
сохранять значение соответствующего (по номеру) элемента или заменять его зма- 
чением .РАТ.5Е. в зависимости от того, является ли: разность между двумя очеред- 
ными приближениями меньшей ЕР$ или превосходит это число. 

Если все элементы массива ВООТ, после вычисления очередной итерации ока- 
жутся равными .ТКОЕ., итерационный процесс является успешно завершенным 
и выдается результат на печать — число итераций и решения; если число итераций 
‘превышает число К, выдается сообщение «ПРОЦЕСС РАСХОДИТСЯ». В том или 
ином случае осуществляется выход на продолжение программы. 

ОР МЕМЗ1ОМ УАГО(М), А(М, №), В (М),УАТ(М),ВООТ (М) 
ГОСТСАТ, ВОО, 
ро 10 1=1,К 
ро 2 1=1,М 
ВОО  (1)=.ТЕОЕ. 
2 УАТО(І)=УАІ (1) 


ро 4 1-=1,№ 
УАІ()=В(П) 
ро з Ј=1,№ 


3 УАТ (П)=УАТ(1)--УАТО(Ј)+А(1,Ј) 
1Е(АВЗ(УАТ(1)--УАТ.О(1)).ГТ.ЕР$) СО ТО 4 
ВООІ(1)=.ЕАІ.8Е. 
4 СОМТІМОЕ 
_ ЮО 5 1=1,М 
° ЛЕ (МОТ. ВООШ1) 00 ТО 10 
5 СОМТМОЕ 
СО ТО 6 
10 СОМТІМОЕ 
’  МВИЕ (1,1) 
І РОКМАТ (5Х,І8НПРОЦЕСС! РАСХОДИТСЯ) 
СО ТО 12 
6 \ЕТТЕ (1,11)К,УАІ. 
11 РОКМАТ (5Х,13,(Е12.4)) 
12 (продолжение программы» 
3. Для получения необходимого фрагмента программы достаточно в приведенном ре- 
шении предыдущего примера в операторе с меткой 3 заменить лишь единственный 
идентификатор УАТО идентификатором УАГ.. Действительно, в этом случае при вы- 
числении каждой последующей итерации для і-ой переменной будут приниматься 
в расчет вместо предыдущих вновь вычисленные значения для всех Ј < і (для Ј > 
эти значения еще не перевычислялись и МАІ(Ј)=УАІО(Ј)). 


Порция 94 


1. РІМЕМЅІОМ А(№) 


ро 5 1=1,М 

М=1-—1 

ІЕ(А().1Т.0.0) СО ТО 7 
5 СОМТІМОЕ 

М=М. 
7 УВЕ (1,2)М 
2 ЕОВМАТ (17) 
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Порция 95 
Па КЕАР(2,5)(АК,ВХ,С7,((К1(1,Ј),7= 1,3),1—1,9),(В(1),1—1,4)) 
о. КЕАР(2,7)АК,ВХ,С7,К1(1,1),К1(1,2), К1(1,3), К1(2,1),К1 (2,2), 
1К1(2,3),В(1),В(@),В(3),В(4) 
Порция 96 


1. ВЕМПМО, ВАСК$РАСЕ, ЕМРЕПЕ 
2. Вспомогательные операторы ввода-вывода используются при работе с магнитной 
лентой. . 


Порция 97 
1. РАТА ЕВТ,В1М,ВОМ, АТОМС(2,3)/275.1,17.3,0.05,37.8/ 


Порция 98 | 
1. РООВІЕ РКЕСІЅІОМ А(6) · { 


РАТА А(1),А(2),А(3), А(4), А(5)/ЭНЗНАЧЕНИЯ, },11ІНПЕРЕМЕННЫХ! , 
1 6НПОСЛЕ |}, ПНВЫПОЛНЕНИЯ! »9НПРОГРАММЫ/ | 


Порция 99 
1. а) РАТА А,В,С/2.7,2+4.0/ — число переменных должно быть равно числу 
или констант (с учетом коэффициента повторения); 
РАТА А,В,С,р /2.7,3+4.0/ ме 
6) РАТА Б/2.0/ — оператором РАТА нельзя присваивать начальные 


значения переменным из общего блока; 
в) РАТА А(1),А(3),А(6)/3*1.0/ — индексы переменных в операторе РАТА могут 
быть только целыми положительными константа- 


ми, но не переменными. 
ГЛАВА ПУ 


Порция 100 


1. В языке ФОРТРАН имеется два класса вычислительных процедур: процедуры- 
функции и процедуры-подпрограммы. 

2. Типы функций: операторные, встроенные, внешние. 

3. См. стр. 136. 


Порция 101 


1. Идентификаторы функций и подпрограмм вводятся для возможности обращения 
К НИМ. 

2. Определенные идентификаторы закреплены для встроенных и основных внешних 
функций. 

З. Идентификаторы встроенных функций: 


Идентификатор Тип аргумента Тип функции 

МАХО целый целый 

МАХІ вещественный целый 

РМІМІ | повышенной точности повышенной точности 
КЕАІ - комплексный вещественный 

ТЕХ вещественный целый 
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Идентификаторы основных внешних функций: 


Идентификатор Тип аргумента Тип функции 
ЕХР вещественный вещественный 
СЕХР комплексный комплексный 
АІ.0а10 вещественный вещественный 
рсоѕ повышенной точности повышенной точности 
ССОѕЅ комплексный комплексный 
АТАМ вещественный вещественный 
Порция 102 
1. При обращении к процедуре задаются фактические параметры. 
2. По значению и по наименованию, см. стр. 138. . 
3. Да (см. стр. 139). 
4. Нет (см. стр. 138). 
5. По наименованию. 
6. Идентификатором переменной, идентификатором переменной с индексами или 
идентификатором массива. 
7. Списки формальных и фактических параметров должны быть согласованы в типе, 
М тА и порядке следования соответствующих параметров в списке. 
. Нет. 


— 


— 


— 


25 


Порция 103 


· Идентификатор массива или элемента массива. 


Формальные параметры не могут быть одинаковыми идентификаторами, фактиче- 
ские параметры могут. 


Порция 104 
С0$(Х+-2—А) 
Порция 105 
В языке ФОРТРАН допустимо использование трех типов функций: 
операторные, 
встроенные, 
внешние. 


. Тип операторной функции может задаваться явно (в операторах спецификации 


типа) и неявно. 
Неявно тип внешней функции задается посредством использования соответствую- 
щей первой буквы идентификатора. 


. Нет. Явно тип функции в ее теле может быть задан только в операторе ЕИМСТ ОМ, 


т. е. для определения логической функции А(Х) необходимо записать: 
ГОСТСАТ, ЕОМСТІОМ А(Х) 


Порция 106 


1) Недопустима. Идентификатор встроенной функции не может быть одновременно 
идентификатором переменной в одной и той же программной единице. 

2) Недопустима. В выражении используются данные разных типов. 

3) Недопустима. 

4) Допустима. 

5) Недопустима. Результатом выполнения функции ЕГОАТ будет данное вещест- 
венного типа, которое нельзя использовать в одном выражении с целым. 

6) Допустима при условии, что АМОР является некоторой функцией от одного 
аргумента (тем самым отличной от встроенной функции АМОР, которая 
является функцией от двух аргументов). 

7) Допустима. 
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Порция 107 


ОА АЗ -АВ(А)5ОВТ(А‹3--2.5) 


В1=ОЕ(В)/(В»+0—3. 
В2= (С+*2—4.+5)/ОЕ(С)—ОЕ($)/51\(6)* +2 


‚ ОМЕ(А,У)=4.+А—(У--А*=2)+ 1М(А/СОЗ(А) 


Порция 108 


значение, присвоенное переменной К, равно 98. 


заменить следующими: 
Р1=Р (1.7, 2.41) 
МЕТТЕ (1,6)Р1 
6 ЕОВМАТ (7Х,2Н97,6Х,5Н,_П.7 5 ИХ,5Н—2.41,7Х,Е12.6) 
р1=р(—9.41,1.7) 
МЕТТЕ (1,6)Р1 | 
ЅТОР 
ЕМ№Р” 
Ц(Х,Ү)=Х—Ү 
У(Х,Ү)=Х+Х-_51М(Ү) 
Е(О,У)= ЕХР(0+Ү)--ү--3.0` 
У(Х, У)= ГОС(ЕС(О(Х,Ү),У(Х,Ү))) -Ѕ0ВТ(О(Х, Ү)ғҮ(Х,Ү)) 
УТЕ (6,3) | 


= 0.28 
ро 8 К=1,11 
НХ= 
Х=Х--0.1+НХ 
ро71=1,4 
НҮ=І. 

Ү=Үү--Нү 

Ү1= У(Х, Үү) 

\ЕТТЕ (6,2)Х,Ү,\І 
7 СОМТИМОЕ 


ҮІ (Хх, У) 
ҮЕЈТЕ (6,2) Х,У, М1 

8 СОМТІМЈЕ 

2 ЕОВМАТ (5Х,Е10.4,10Х,Е10.4,10Х,Е10.4) 


3 РОКМАТ (5Х,‚10НЗНАЧЕНИЕ, _Х,10Х,10НЗНАЧЕНИЕ, ;Ү,10Х, 7 


І І0НЗНАЧЕНИЕ №) 
ТОБ 
ЕМ” 


Порция 109 


‚ СОММОМ /РА/С(З,4),р(8,4) я о У 


· Переменная К в этой программе определяет номер строки вывода. Последнее 


· Операторы, следующие в записи программы после оператора с меткой 5, можно 
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Порция 110 


1. Размер общего блока — это сумма единиц памяти, необходимой для размещения 
объектов, указанных в операторах СОММОМ и ЕОЧУАГЕМСЕ. 
2. Нет (см. стр. 158). 


Порция 112 


1. а) Пропущена запятая между списками переменных. 

6) Третий список содержит две переменные, определенные ранее как эквивалент- 
ные (А и Е). 

в) Такое совмещение по памяти элемента массива из общего блока В(2,1) и эле- 
мента массива К (4) недопустимо. 


Порция 113 
1. См. стр. 166. 


Порция 114 


1. а) Неправильно. Идентификатор функции состоит более, чем из шести символов. 

6) Правильно. Г з 

в) Правильно. 

г) Неправильно. Формальный параметр не может быть идентификатором пере- 
менной с индексами. > 

д) Неправильно. Формальные параметры не могут быть константами и выра- 
жениями. 


Порция 115 


1.. СОМРІЕХ ЕОМСТІОМ АМ1(АК) 
СОМРЕЕХ АК 
РІМЕМ№ЅІОМ АК(15,15) 
А=0.0 

М=1 

№1 

ро 1 1=1,15 

ро 1 1=1,15 
ІЕ(САВ$(АК(1,Ј))—А)І, 1,2 
А=САВЅ(АК(1,Ј)) 

М=1 


№Ј 

СОМТІМОЕ 

АМ1=АК(М, М) 

ВЕТОВМ 

ЕМ№Р” 

2. ІМТЕСЕБВ ЕОМСТІОМ АКАК) 
СОМРІЕХ АҚ ` 
РІМЕМ5ІОМ АК(100) 
А=0.0 
ро 1 1=1,100 
ТЕ(САВ5(АК(1))—А)1,2,2 
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[55] 


— 


2 АЕСАВ$(АК()) 
А1=1 


СОМТІМОЕ 

КЕТОВМ 

ЕМ” 

3. СОМРІЕХ ЕОМСТЮМ АЗ(АК) 
СОМРІЕХ АК(20) 


— 


М=1 
А=САВ$(АК(1)) 
ро 1 1=9,90 


1Е(САВ$(АК(1))—А)2,1,1 
А САВУАКО) а 


СОМТІМ№ЏЕ 
АЗ= АК(М) 

ВЕТОВМ 

ЕКО 

4. ҒОМСТІОМ Е(В) 

ВЕАГ, В(20,30), А (200) 

ЕОГУАГЕМСЕ (В(1,1),А(1)) 
АМГ\=АВЗ(А(1)) 

АМАХ=АВЅ(А(1)) 

ро 1 1=2,900 - . . . 
ІЕ(АВЅ(А(1))—АМІМ.ІТ.0.0)АМІМ= АВЅ(А(І)) 
1Е(АВЗ(А(1))-АМАХ.СТ.0.0)АМАХ=АВЗ(А(1)) 
СОМТМОЕ , о» } 


а 


— 


5. Необходимо: Р 
а) Во втором операторе спецификатор КЕАГ заменить спецификатором 
СОМРІЕХ. е; Б. | 
б) Идентификатор встроенной функции АВЅ во всех указателях этой функции 
заменить идентификатором основной внешней функции САВ$ (см. табл. 24, стр. 282). 


Порция 116 


1. Нельзя. Одна из этих функций никогда не будет выполнена. 
2. Внешнюю функцию можно обозначить идентификатором, закрепленным за встроен- 
ной функцией, однако в этом случае встроенная функция с этим идентификатором 
в данной программной единице не может быть использована. 

Об идентификаторе основной внешней функции см. ответ на вопрос 1. 

Одним идентификатором нельзя обозначить операторную функцию и внешнюю, 
к которой имеется обращение в данной программной единице. 
3. Момент завершения выполнения процедуры определяется выполнением оператора 
КЕТОВМ. 
4. а) Нет, так как функция В обращается сама к себе посредством функции ү. 

6) Допустимо. 

р Недопустимо, так как функция о обращается сама к себе посредством функ- 
ЦИИ 
5. Формальные параметры Х и У являются идентификаторами внешних функций, 
параметр 2 является идентификатором простой переменной. ) 
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Порция 117 


1.  РОМСТОМ СРАВН (Х, У, 2) 
1Е(Х—У)5,6,5 
РАВН==3. 
ВЕТОВМ 
ТЕ(Х—2)7,8,7 
СРАВН=4. 


уч ост о 
Ф) 


ШИЙ отео ооо 
ТЕ(Х.ЕО.У) СОТО 5 
` ТЕСХ.ЕО.2) 60 ТО 6 


Б Кер сл 
СУ 
299 

о 095 00 
Ч С 
а 
нь “ео 
(=) ==) 


2, ЕОМСТІОМ ЗМАШ, (А, №) 
РІМЕМЅ5ІОМ А(1000) 
ОМА 1=А(1) 
РО 1 1=2,М 
ТЕ($МАЕТ—А(1Т))1,1,2 
2 ЗМАГ1 = А(Т) 
1 СОМТМОЕ 
ВЕТОВМ 
ЕМ” І 
3. а) Недопустимо, так как функция не имеет параметров. 

0) Недопустимо. Результатом выполнения данной функции должно быть дан- 
ное логического типа. Выражение, вычисляемое в правой части оператора, присваи- 
вающего значение переменной логического типа Е, является вещественным, что не 
допускается правилами ФОРТРАНа. 

в) Недопустимо, отсутствует спецификатор типа функции Е. 


Порция 118 


ня Обязательно. 

‚ Обязательно. 

3, ТОСІСАІ ЕОМСТІОМ $1М(А, №) 
Бае А(№,№) е 


рО 2 1=1,№1 
1=1-51 
ро 2 Ј=,№ 
2 ТЕ(А(Т,Ј).МЕ.А(Ј,)) СО ТО 3 
$1М=.ТВОЕ. 
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Порция 119 


1. Между первым оператором и конечной строкой в теле подпрограммы запрещено 

использование операторов ЗОВКООТИМЕ, ЕОМСТІОМ, ВТОСК РАТА, ЅТОР и ко- 

нечной строки ЕМО. 

2. Идентификатор внешней функции используется в теле функции в роли идентифи- 

катора переменной, значение которой в этом теле должно определяться. Обращение 

к внешней функции осуществляется посредством указателя. : 
Идентификатор подпрограммы используется при обращении к подпрограмме 

в операторе СА1.. 

3. Первые символы идентификаторов подпрограмм никакой специальной функции 

не выполняют. 


Порция 120 


1. Идентификаторы процедур используются в вызываемой и вызывающих проце- 
дурах. 

Идентификатор подпрограммы в вызываемой процедуре должен появиться в опе- 
раторе ЗОВАООТІМЕ; в вызывающей — в операторе САІІ.. 

Идентификатор внешней функции в вызываемой программе должен появиться 
в операторе ЕОМСТІОМ и хотя бы в одном из операторов, определяющих его значе- 
ние как значение данной функции. 
2. При наличии в программной единице косвенного обращения к внешним процеду- 
рам в этой программной единице обязательно наличие оператора ЕХТЕВМАІ.. 
3. В список идентификаторов оператора ЕХТЕВМАІ, должны быть включены все 
идентификаторы тех внешних процедур, которые используются в. теле данной про- 
граммной единицы в качестве фактических параметров. № 96 
4. Наличие оператора ЕХТЕВМАТ, в некоторой программной единице говорит о том, 
что в ней имеется косвенное обращение к внешним процедурам. 


Порция 121 


15 ЗОВВООТМЕ АІ К(А, А2) 
РІМЕМЅІОМ А(100) 
СУММА —0.0 
ПОТЕ 100 

1 СУММА=СУММА-+-А(Ј) 
А2=СУММА/100.0 
ВЕТОВМ 
ЕМО 

2. 5ОВКООТІМЕ ТЕ(Х,Ү,Қ) 
РІМЕМ5ІОМ Х(150),У(150) 
ШОО 10 
М=К—--1 

10 Ү(№)= Х(Ј) 

КЕТОВМ 
ЕМО 
Порция 122 


1. ЅОВКООТІМЕ СРЕРН(А, К, СР, М) 
РІМЕМ№ЅІОМ А(50) 
СР=0.0 
К=о 
ро 1 1=1,М 
СР=СР--А(Ј) 
ІЕ(А(Ј))1,2,1 
2 К=КТ+І 


зи 


1 СОМТІМОЕ 
АМ= 


2. САМ. СРЕРН(В, КМ, \СР, 40) 
УСР=УСР»2 


Порция 123 


1, Исходные данные в подпрограмму могут быть переданы посредством аппарата 
формальных-фактических параметров или через общие блоки памяти. 

. Результаты выполнения подпрограммы могут быть использованы в вызывающей 
процедуре посредством фактических параметров, соответствующих формальным, 
вызываемым по наименованию, или через общие блоки памяти или могут быть выда- 
ны во внешнюю среду посредством операторов вывода. 

3. Да. Это может иметь место вследствие изменения значений переменных из обще- 
го блока памяти. А 
4. Через общий блок памяти или посредством операторов вывода. 


Порция 124 


1, Формальные параметры не могут быть использованы в операторах СОММОМ, 
ЕООІУАТЕМСЕ и "РАТА. 


Порция 125 


1. Если результаты выполнения процедуры должны быть выданы при ряде обраше- 
ний к ней в различные поля памяти, необходимо воспользоваться аппаратом фор- 
мальных-фактических параметров. . 

Если при различных обращениях к данной процедуре могут быть использованы 
одни и те же поля, вместо аппарата формальных-фактических параметров можно вос- 
пользоваться оператором СОММОМ. 


Порция 127 


1, Оператор ЕХТЕВМАТ, необходим в том случае, когда в данной программной еди- 
нице идентификатор некоторой функции используется в качестве фактического па- 
раметра. , | 

2. Нет, так как это означало бы рекурсивное обращение к данной программной еди- 
нице, запрещенное синтаксисом языка ФОРТРАН. 

3. Наличие идентификатора встроенной функции в списке оператора ЕХТЕВМАК 
означает, что в данной программной единице соответствующая функция не исполь- 
зуется и выполняемая программа включает внешнюю процедуру, обозначенную этим 
идентификатором. Наличие указателя данной встроенной функции в правой части 
оператора присвоения означает обращение не к встроенной функции, а к соответст- 
вующей внешней (с тем же идентификатором). 


Порция 128 

1. В случае, когда выполнение функции сводится к выполнению одного оператора 
присвоения. | 
2. Используя встроенную функцию ЕГ.ОАТ, необходимый фрагмент программы пред- 
ставим в виде: 

КЕАГ Х(100), У (100) ' 

Р4()=Х (ХУ 
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С()=ЕІӨАТ (1) 
Он „+С()--СО$(2.*С(1))--$ОВТ(Р4(1) 


БО 1 1=М№і1,№ 
1 8=8-+-Т(1) 
’ В=Е-Е$ОВТ(Р4(50))--$ОВТ(Р4(100)) 
Р ЕМ” 
ЕХТЕКВМАГ, Р1,Р2,РЗ,Р4 
СОММОМ Х1(100),У(100) 
‚ САМ. Р4(50,51) 
САГГ, Р4(100,52) 
САГЬ Т (№, №, РІ, 53) 
САТІ, Т(№3,М№4,Р2,54) 
САГТ, Т(№5,М36,Р3,55) 
САТ. Т(№7,М№8,Р4,56) 
В=51--52--$3--$4--$5--$6 
ЕМО 
ЗУВВОЧТИМЕ . Т(М,М,Е,5) 
$=0.0 
ро 1 1=М,М 
САМ. Е(І,0) 
1 5=54-0 
ВЕТОВМ 
`ЕМО 
ЗОВКОЧТИМЕ Р1(Т,$) 
$= [1 
ВЕТОВМ 
ЕМО 


ЅОВАООТІМЕ Р2(1,5) 
1 


5=С05(2.0+А) 
КЕТОВМ 

ЕМ” 

ЗОВВООТІМЕ РЗ(І, $) 
5= 1+3 

ВЕТОВМ 

ЕМО 

ЗОВВОПТИМЕ Р4(1,5) 
СОММОМ Х(100),У(100) 
$=ЗОВТ(Х(1)++9--У (1) *+2) 
ВЕТОВМ 


ЕМО 
4. 1) Допустима. 

2) Допустима. Ж 

З) Недопустима. Процедура Т должна быть внешней (что следует из указания 
ее идентификатора в операторе ЕХТЕКМАТ) и одновременно операторной функцией 
(что следует из употребления этого идентификатора со списком формальных парамет- 
ров в левой части оператора присвоения). 

4) Недопустима. Формальные параметры не могут быть включены в список 
оператора СОММОМ. Е 
5. Нет, так как в этом случае каждый получаемый результат при очередном вызове 
процедур будет уничтожать предыдущий. 
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Порция 129 


1. Размеры массивов могут быть заданы: 

а) в операторе спецификации типа, 

б) в операторе РІМЕМ№ЅІОМ, 

`° в) в операторе СОММОМ, однако в том случае, когда эти размеры не являются 

формальными параметрами, и, значит, не являются регулируемыми. 
2. Массивы, хотя бы один из размеров которых определяется идентификатором (це- 
лого типа). А 
3. Такой список должен включать как идентификаторы регулируемых массивов, так и 
идентификаторы переменных, определяющих их размеры. 
4. Минимальное — четыре: три идентификатора этих массивов и один — определяю- 
щий их размеры. Например: А(№), В(№, №), С(10,М,№). Максимальное — 12: три иден- 
тификатора массивов и по три параметра, задающих размеры для идентификатора 
каждого из массивов. В этом случае все размеры должны определяться различными 
идентификаторами. | 
5. Нет. Эта процедура должна иметь по меньшей мере два формальных параметра: 
идентификатор регулируемого массива и идентификатор его размера. 
6. Можно, если исходные матрицы имеют размеры МХМ и МХК, где М и К заданы 
константами. В этом случае результирующая матрица будет матрицей с постоянными 
размерами. Например, исходные матрицы имеют размеры: 


по В А(10х М); В(МХ5) 


Результирующая матрица будет иметь размер 10 Х 5. А 
° В других случаях, когда результирующая матрица будет также иметь регули- 

руемые размеры, ее идентификатор должен быть включен в список формальных па- 
раметров. . 

В качестве параметров циклов нельзя использовать формальные параметры, 
. определяющие регулируемые размеры, так как языком запрещено их переопреде- 
ление. 
7. 1) Недопустима. Идентификатор М, определяющий регулируемые размеры мас- 
сива А, становится неопределенным при выполнении оператора АЗЗ1СМ, что за- 
прещено языком. 

2) Недопустима. Идентификатор, определяющий регулируемые. размеры мас- 
в Ее может быть использован в качестве управляющей переменной оператора 

3) Недопустима. Идентификатор, определяющий регулируемые размеры мас- 
сива, не может использоваться в качестве параметра цикла. 

4) Допустима. 

5) Допустима. _ . 

6) Недопустима. Идентификатор, определяющий регулируемые размеры мас- 
сива, не может быть переопределен в теле процедуры. 


Порция 131 
1.  5=5Р(А,М,М,2,3) Я 
51==5Р(А,М№,М,3,5) 
52=5Р(А,М№,М,2,9)--ЅР(А,М№,М,3,3) : и ЛИЕ" 
2. Число формальных параметров в ‘подпрограмме ГОС не может быть уменьшено 
в связи с тем, что размеры массивов заданы переменными, т. е. массивы имеют регу- 
лируемые размеры, которые могут определяться только через параметры. 


2 СОМТМОЕ 
В(Г)=.БАТЗЕ, 
СО ТО 4 

3 В)=.ТВОЕ. 


314 


4 СОМТМОЕ 
ВЕТОВМ 
ЕМ” 
4. Нет. Размеры массивов могли быть описаны в операторах спецификации типа: 
ЗОВКОЧТМЕ ІОС(А,М,М,В) 
ГОСТСАТ, В(№) 
КЕАГ А(М, №) 
5. Тот же результат (логический вектор В) может быть получен при выполнении сле- 
дующей программы, содержащей вместо 13 только 10 операторов: 
ЅОВВКООТІМЕ ТОС(А,М,М,В) 
ГОСІСАІ В 
РІМЕМ5ІОМ А(М,М№),В(№) 
РО 2 1-1,3 
В(1)=.ЕАТ8Е. 
ро 2 1=1М 
ІҒ(А(Ј,1).М№Е.0.)В(1)=.ТЕОЕ. 
2 СОМТІМОЕ 
КЕТОВМ 
ЕМ” 
Однако по времени выполнения приведенная программа уступает программе, при- 
веденной в порции 131: просмотр элементов столбцов в ней продолжается и после 
того, как встретился ненулевой элемент; соответственно этому производится повтор- 
ное присвоение элементу массива В(Т) значения .ТВОЕ.. 
Ниже приведен еще один вариант программы, содержащий 11 операторов, но 
свободный от указанного недостатка: 
ЗОВКООТІМЕ ТОС(А,М,М,В) 
ГОСТСАТ, В 
РІМЕМЅІОМ А(М,М№),В(№) 
РО 3 1=1,М 


ТЕ(А(Ј,1))3,9,3 

2 СОМТІМОЕ 

3 В(|== ТВОЕ, 
ВЕТОВМ 
ЕМ” 


Порция 132 


1. ВГОСК РАТА 
СОММОМ /ВТ.ОСК5/А,В,С,Р,ВООГ-3 
ГОСІСАІ, ВООГЗ 
ТМТЕСЕВ А(2,9),В(0,9) 
РАТА А(1,1),А(2,1),В(1,1),С,ВООТ.3/2,3,4,77.7, ЕАТЗЕ./ 


Порция 133 


1. а) Е(0=ЕРГОАТ(] «2--51М(ЕІОАТ(1)--1.)--Е.ОАТ(К) 
26) Е(К,Т)=ЗОВТ(ЕГОАТ(К))-Е (ЕГОАТ(К)-2--Т)=*(1./3.) 
`в) М(5,К)=ТЕТХ (5)-| (14-2: К) +3 | 
ЕОМСТІОМ С(Х,А) 
1Е(Х)1,2,2 
1 Ч(=А»жХ 92 
ВЕТОВМ 
2 Ч=АхХ +3 
ВЕТОВМ 
ЕМ” 


2. 
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3. ЗОВКООТМЕ М(А;В,С) 
рІМЕМЅІОМ А(10,10),В(10,10),С(10,10) 
ро 5 1=1,10 
ро 5 Ј=1;10 
С(1,7)=0.0 
00 5 К=1,10 

5 С(1,Ј)=С(І,Ј)--А(1,К)ғВ(К,Ј) 
ВЕТОКМ 


ЕМ” 
РіМЕМЅІОМ В(10,10),ВМ(10,10),А(10,10) 
КЕАР” (9,1)В,((ВМ(1,Ј),= 1,10), 1,10) 
ЕОВМАТ (5Е14.4) 
СА. М(В,ВМ,А) 
ро 5 1=1,10 
ро 5 Ј=1;10 
5 А(1,Ј)= С(А(1,7),5.0) 

МЕТЕ (1,2)((А(1,Ј),7=1,10),1=1,10) 
2 РОКМАТ (4Х,5Е10.4) 

ЅТОР : 

ЕЮ 


— 


Порция 134 


1. В этом операторе выражение в правой части — вещественного типа. 
2. Переменная МІ введена потому, что конечный параметр цикла не может быть вы- 
ражением, содержащим знак операции. : 

Переменная АК введена для преобразования целого значения К в вещественное, 
что необходимо для его использования в выражении вещественного типа (в следую- 
щем операторе). 
3. Операторы ЕОВМАТ могут быть помещены в любое место программной единицы 
до конечной строки. . 
4. В — Н — фактический параметр. 

Е(А),Е(В),Е(В—Н),Е(А--2.+АҚ»Н) — указатели функции Е. 


Порция 135 


1. Потребуется в программу дополнительно включить пять операторов вызова этой 
подпрограммы (по числу используемых в ней указателей функции Е), указав при этом 
для первых трех операторов различные фактические параметры — идентификаторы 
результатов и соответственно заменив слагаемые в операторе присвоения, содержа- 
щем сумму трех указателей функций Е. Аналогичные преобразования необходимо 
произвести для выполнения оператора с меткой 5. 
ругими словами, вместо оператора 

7=Е(А)-НЕ(В)--4.«Е(В—Н) 
в приведенной программе следует записать следующие четыре оператора: 

САИ. Е(А,ҮІ) 

САМ. Е(В, У?) 

САІІ Е(В—Н,ҮЗ) 

Ү=Ү14-Ү2--4.+ҮЗ 
а вместо оператора 

Ј=Ј--4.+Е(А-+(2.«АК—1.)*Н)--2.+Е(А-4-92.*АҚ=*Н) 
три оператора: 

САТІ, Е(А--(2.+АК—1.)+НҮІ) 

САТТ. Е(А--(2.+АК»Н)У?) 

Ј == Ј44.*Ү1--2.+Ү? 
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Порция 136 


1. Операторная функция должна быть помещена после первого оператора, так как 
следующий оператор — выполняемый. 


Порция 137 


1. Переменная К принимает значения 1, 2 и 3. 
2. Этот оператор можно заменить следующим: 

Қ=1ІЕІХ(Х)/24-1, 
где ІРІХ — встроенная функция, преобразующая аргумент вещественного типа к 
целому типу. ь А 
3. При Х == 4 величина Қ принимает значение 3. В этом случае, как и при 2 $ 
< Х Ч 4 необходимо перейти к оператору с меткой 12. 
4. Можно, для этого надо пометить один из них какой-либо меткой, а второй заменить 
оператором безусловного перехода на эту метку. ў 


Порция 138 


р о. 
1. а) В приведенной в тексте программе необходимо заменить первый оператор двумя 


следующими операторами: 
ЕОМСТІОМ СІМР (А) 
СОММОМ В, М 
б) В приведенной в тексте программе необходимо первый оператор заменить 


оператором. 
ЕОМСТІОМ (МР. (А) 


и идентификаторы В и М всюду заменить константами 10.0 и 200 соответственно, 
‚. Оператор КМ=М—1 нужно при этом заменить оператором КМ=199. 


Порция 139 


1. Программные единицы могут быть заданы в любом порядке. Операторы ЕОВМАТ 
могут быть помещены в любом месте главной программы до ее конечной строки. 

2. Идентификаторы формальных параметров в теле внешних функций (А, В, М; 
Х; 2) могут быть заменены любыми другими, отличными от идентификаторов самих 
этих функций. Полагая, что процедура СМР задана, ее идентификатор, а также иден- 
тификатор Е (используемый в ее теле) не могут быть заменены никакими другими. 
Можно вместо идентификатора Е1 употребить любой другой идентификатор (в теле 
Е и БІ), однако отличный от Е и ее формального параметра, а также формального 
параметра процедуры ЕІ. 


Порция 140 


1. Указанное в задании размещение заданных массивов на перфокартах не позволяет 
‚ для их ввода воспользоваться идентификаторами этих массивов. В связи с этим для 
записи оператора КЕАР” без списка типа цикл требуется непосредственное перечис- 
ление всех переменных с индексами в порядке размещения их значений на перфо- 
картах, т. е. в виде: 
КЕАР” (2,4)М,А(1),В (1), А(2),В (2) ит. д. 
При этом список оператора ВЕАО будет содержать 41 элемент. 
Во избежание столь громоздкой записи можно поступить следующим образом. 
Введем в рассмотрение дополнительно массив С(40), в который введем всю ин- 
формацию, составляющую массивы А и В. При этом начало программы придется 
записать в виде: 
ВЕАГ. МІ 
РІМЕМЅІОМ М1(20),А(20),В (20),С(40) 
КЕАР (2,4) М,С 
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4 ЕОВМАТ (15/(2Е10.3)) 
РО 8 1=1,20 
К=9+1—1 
= 
А()=С(К) 
8 В(1)=С(1) 

2. а) арифметический оператор присвоения, 6) переменная с индексом, в) вещест- 
венная константа, г) указатель функции (внешней), д) список фактических па- 
раметров, заданных переменными, е) переменная целого типа, ж) переменная 
целого типа, з) оператор ЕОМСТІОМ (первый оператор тела внешней функции), 
и) список формальных параметров, к) конечная строка. 


Порция 141 


1. Наличие оператора ЕХТЕВМАІ в приведенной программе обязательно, так как 
идентификаторы внешних функций ЕІ и Е? используются в качестве фактических 
параметров в.этой программной единице (в указателе функции СМР). 

В предыдущих программах косвенное обращение к внешним процедурам отсут- 
ствовало. 
2. 4 РОКМАТ (16,2Е12.6) 

ЕХТЕКМАІ ЕІ 

КЕАР” (2,4)МІ,А,В 

0=2.53.1416:СІМРС(А,В,М1,Е1) 


МКІТЕ (1,7)0 . 

7 БОВМАТ (5Х,4НО! = ,Е9.4) 
ТОР 
ЕМ” 
ЕОМСТІОМ СМР (А,В,М,Е) 
а 


ЕОМСТІОМ ЕІ(Х) 
Е1= (выражение для вычисления произведения Е(Х) . УТ (ЕХ)? 
ГИ 


Порция 142. 


1. Из уравнения эллипса имеем: 
= И а — 2. р , В = ем 
= Ие (7 О ла а иу. 


Программа вычисления длины четверти дуги эллипса (А = а, В = Б). мо- 
жет быть представлена в виде: | 
СОММОМ А,В 

ЕХТЕҚМАІ. Е1 

КЕАР (0,1) А,В,М- 

ЕОВМАТ (2Е10.3,15) 

І=СІМР(0,А,М,ЕІ) 

УВІТЕ (1,1)1. 

ТОР 


ЕМО 
ҒОМСТІОМ РХ) 
СОММОМ А,В 
Е1-=5ОВТ(1.--В+В»Х «Х/А+А(А+А—Х»Х)) 

ВЕТОКМ | 


һә 
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2. ЕХТЕВМАТ, 513 
ВЕАР (9,1) М 
1 ЕОВМАТ (15) 
Ү=СІМР2(0,3.1416,М,5139) 3.1416 
МЕТТЕ (1,2)У 
2 ЕОВМАТ (Е12.9) 
- ЅТОР 


ЕМО 

ЕОМСТІОМ 51М№(Х) 
5132==51М(Х) +2 
ВЕТОРМ 

ЕМО 


Порция 143 


1. В приведенной в тексте программе следует заменить оператор, помеченный меткой 
5, оператором (сохранив за ним эту метку): 
Х=(Х0+Е(Х—Х1+Р(ХО))/(Е(Х1)—Е(ХО)) 


Порция 144 


1. Чтобы отказаться от сопрограммы ВІОСҚ РАТА можно начальные значения пе- 
ременным П и 12 присвоить в главной программе (операторами присвоения, выпол- 
няемыми один раз, но не оператором РАТА!). 

оОВКООТІМЕ ЕІВ 

СОММОМ/В/ 11,12 

І=192 . 

12= 114-12 

П=[ 

ВЕТОВМ 

ЕМО 
Начальные значения обеим переменным 11 и 12 задать непосредственно в подпрограм- 
ме Е1В нельзя. 
2. СОМРІЕХ А 


РАТА А/10НЕ и ии и ду 
Соммом /в/п,12 
1=1 
19=1 
\ВТТЕ (1,1)А 
1 РОВМАТ (3Х,А12) 
= 


РО 3 11,20 

САШ, ЕВ 

1=1--12 

Е1=ЕГОАТ(12)/ЕТОАТ(Т.) 

3 \ВИЕ (1,2) ЪЕ1 

2 ЕОЕМАТ (5Х,12,Е1б.7) 
ТОР 
ЕМ” 

Для формирования заголовка таблицы введена переменная А комплексного типа, 
которой присваивается текстовое значение, состоящее из 12 символов. 

Передача начальных значений для подпрограммы БІВ производится посредством 
общего блока В. В цикле формируется очередной член суммы, который используется 
для получения очередного члена 5; каждое полученное значение выдается здесь же 
в цикле на печать. 
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Второй вариант решения, в котором мы опустили операторы, предназначенные 


для выдачи заголовка к таблице результатов и в котором результаты накапливаются 
в массив, а затем выдаются на печать посредством списка типа цикл; 


рІМЕМ5ІОМ 65(20) 
СОММОМ/В/КЕ!,КЕ2 
`15=0 

РО 10 1=1,20 

САЦ. ЕВ 

15= КЕ2-- 1$ 


10 В5()=РГОАТ(КЕЗ)/ЕТОАТ(1$) 


\КИТЕ (1,4)(1,85(1),1=1,20) 
4 ЕОВМАТ (5Х,12,Е16.7) 

. ЗТОР 

ЕМ” 

ВІОСК РАТА `` 
`СОММОМ/В/Т1,19 · 

РАТА `11,12/1,1/ 

ЕМ” 

ЅОВВООТІМЕ ЕІВ 


СОММОМ/В/11,12 


3. В общем случае не может, так как переменная У, принадлежащая общему блоку, 
должна для сохранения рекурентного процесса выдачи очередного члена ряда Фибо- 
наччи процедурой Е1В сохранять свое значение. Оператор У=У—9+0 можно допу- 


стить, если при этом перед ним ввести оператор 
\ = Ү, 


а после него (и после использования в нем получаемого значения У) ввести оператор 


У = ү. 


Порция 145 


1. СОМРІЕХ А 
ТМТЕСЕВ ВО 
ра А/12Н аа ии и 11) 
Т9=/ 

УБІТЕ (1,1)А 

1 РОКМАТ (3Х,А12) 
М/=0. 
ро з 1=1,20 
О=ҒІВО(І1,19) 
\М=\-НО 
$1=0/\ 

3 \ВПЕ (1,2) 1,$1 

2 ЕОВМАТ (5Х,12,Е16.7) 
ЗТОР 

`` ЕМЬ 
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Порция 147 


1. Для указанной в задании замены необходимо соответствующие текстовые кон- 
станты отперфорировать и задать на вводе. Из оператора РАТА необходимо изъять 
ту часть, которая касается задания начальных значений массива А. Оператор ввода 
массива А может быть представлен в виде: 
КЕАР” (2,3)А 
3 РОКМАТ (6А6) 


ГЛАВА У 
Порция 148 


1. а) да б) да в) да г) да д) нет е) да ж) да з) нет и) да 
а), в), г), е) являются идентификаторами в том случае, если они не выступают 
в операторах в роли служебных слов; а ж), и) — в роли описателей полей. 


Порция 149 
1. а) Допустима. : | 
б) Недопустима, так как в одной выполняемой программе не может быть двух 
функций с одним идентификатором. 
в) Недопустима, так как идентификатор І не может определять объекты класса 5 
и І в одной программной единице. | 
2. а) Недопустима, так как идентификатор К не может определять объекты, принад- 
лежащие классу 3 и классу 5 в одной программной единице. 
б) Недопустима, так как идентификатор К не может определять объекты, при- 
надлежащие классу 1 и классу 9 в одной программной ‘единице. 
3. Класс 2: КЗ, ЕТА, М, А, В 
[Класс 5: СІМР? 
Класс 7: ТІ, Т2, ТЗ 
4. Процедура Т2: класс 5: Т2, ТІ 
класс 2: Х, Т2 
Процедура Т3: класс 2: Х, ТЗ 
класс 5: ТЗ, ТІ 
5. а) Класс 1: АВ, ВВ 


класс 2: А установить нельзя 
класс 8: ВВ г) класс 2: $ 
6) класс 1: АІ класс о: В, Х, У 
класс 2: В, С класс 6: Е2 
класс 4: АВ$ класс 7: А 
класс 8: АВ$ д) класс 2: Х, А, В, ТІ, Т 
в) класс 6: А класс 3: $1М 
класс 7: Х, У класс 5: КЕМ 
Класс А2, АІ в данной после- е) класс 1: А 
довательности операторов " класс 2: С, Х 


Порция 150 


1. В списке оператора СОММОМ могут появиться только идентификаторы простых 
переменных и массивов, а также описатели массивов с постоянными размерами. 

В списке оператора ЕСПЛУАГЕМСЕ могут появиться только идентификаторы 
простых переменных и переменных с индексами. 
2. а) Допустима. 


. 6) Недопустима, идентификатор функции не может находиться в списке опера- 
тора СОММОМ. 
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3. а) Недопустима, идентификаторам 11 и 12 отведено общее поле памяти, поэтому 
в операторе РАТА значение может быть присвоено только одному из них. 

6) Недопустима, см. а). 

о Натур, переменная К(2) не может быть указана в двух операторах 


Порция 151 
1. 40 (40--1—1=40) 
`2. См. стр. 236. 

Порция 152 
1. а) Нет. 


б) Может и должен в теле функции, обозначенной данным идентификатором; 
не может в других программных единицах. 
в) Не может. 


Порция 154 


1. Внутренняя (оперативная) и внешняя. р 

2. Режим чтения (снятия копий с кодов, хранящихся в некотором поле памяти) и 
режим записи (посылки кодов в поле памяти). 

3. Байты — это минимальные адресуемые поля памяти. 
4. Описание идентификатора служит информацией для выделения соответствующего 
поля памяти данному, обозначенному этим идентификатором. 

5. Тип данных может задаваться явно (спецификаторами типа) и неявно для данных 
целого и вещественного типа (первой буквой идентификатора). 

6. Обращение к данному в режиме чтения недопустимо до тех пор, пока ему не прис- 
воено значение соответствующего типа. 


Порция 155 


1. а) Выполнение операции присвоения. 
6) Выполнение оператора ввода, в списке которого указана данная переменная. 
в) Употребление идентификатора переменной в качестве управляющей перемен- 
ной в операторе ОО. 
2. См. стр. 248. 
. Может. у 
4. Можно, если это переменные одного и того же типа. 
5. Можно. Однако такое согласование не будет иметь места в том случае, если дан- 
ные, объявленные эквивалентными, не совпадают по типу. См. также стр. 247 0б 
определенности эквивалентных величин в операторе ввода. 
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